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ones; BITS_0, BITS_1, BITS_2, BITS_3 . Each of these is set with 
the bits to strip on incoming characters according to the data in 
the most recent configuration change interrupt for that port. 

FILES CHANGED - 

MX_VAR - Took out declaration for BITS_MSK; added BITS__0, BITS_1, 
BITSJ2, and BITS__3. 

MX4INIT - Took out initialization for BITS_MSK. Initialized BITS_0, 
BITS_1, BITS_2, and BITS_3 instead. 

MX4RX - Added parameter to RX macro for the bits mask variable. 

RXERR - Same as MX4RX; added parameter to RX macro for bits mask 
variable. 

MX4TX - Took BITS_MSK out of the extrn area. I don't know where it 
was used or why it was there in the first place. Probably 
an oversight. 

MXSBR - The routine, HSTCON, now passes the bits per character mask 
value back to the calling routine instead of setting the 
value in the BITS__MSK variable as before. 

MXPTO, MXPT1, MXPT2, MXPT3 - These routines now receive the bits per 

character mask value in the A register after HSTCON has 
finished execution and returned. They then save the mask 
value in the appropriate variable location for that port. 

MX4EQUS - The RX macro was changed to include the bit mask variable. 

RELIABILITY IMPROVEMENT (1/89 - Randy Stout - Production Engineer) 

BRIEF DESCRIPTION - INTERMITTENT BUG IN SELF TEST 

SYMPTOM - The 98642 would occasionally (frequency ranging from 1 
failure in 10 passes to 1 failure in 800 passes) fail it's on-board 
Self Test. 

REASON - Contrary to the published information, Zilog's CTC chip 
requires a Reset before interrupts are enabled. Issuing the Reset and 
the Enable Interrupt in the same control word can lead to a race 
condition on the chip. If there is an interrupt pending AND the 
Interrupt Enable occurs before the RESET, the CTC will issue a Z80 
Interrupt. This combination occurred during the SIO Test portion of 
the Self Test, leading technicians to believe the SIO was at fault. 
The board would often pass Self Test with the new SIO - at least 
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during the first few cycles through the test. 



LUTION - Since the fault occurred because there was an interrupt 
pending during the signal race on the CTC, it proved cleaner to remove 
the pending interrupt than to change the CTC initialization. The 
pending interrupt resulted from setting all four channels of CTC 1 as 
19.2 KBaud generators (at the beginning of the SIO Test). Only the 
first two channels were actually used as baud rate generators. The 
third channel was not required until later in the SIO test. There, it 
is used as a "dead man" timer. By changing 

LD B,4 to 

LD B,2 at line 0304 (hex) in MX4ST, the intermittent interrupt 
was eliminated. 

OTHER CHANGES - In addition to this one bug the code was cleaned up in 
other places. Redundant code was removed and the SIOs were 
initialized according to Zilog's latest recommendations. The source 
listing is clearly commented at each change. 



SECTION SCOPE 

This document describes the internal structure of the firmware 
implemented for the HP-DIO RS-232 4 channel terminal multiplexer 
card (98642A) . Specifically, this document describes: 

1. All symbols used by the firmware except for symbols 
used as labels in the instruction sequence 

2. The firmware data structure 

3. The function of each firmware module 



4. Any other information pertinent to the understanding 
of the firmware 

The reader is referred to the following related documents: 

1. HP-DIO FOUR CHANNEL TERMINAL MULTIPLEXER FIRMWARE 
EXTERNAL REFERENCE SPECIFICATION (ERS) 

by Elizabeth Poteet 

2. HP-DIO FOUR CHANNEL TERMINAL MULTIPLEXER HARDWARE 
EXTERNAL REFERENCE SPECIFICATION (ERS) 

by Bob Bortolotto 



3. Zilog Z80 CPU Technical Manual 
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4. Zilog Z80-SIO Technical Manual 

5. Zilog Z80-CTC Technical Manual 

This document assumes the reader has the full understanding of all 

the information given in the Hardware and Firmware ERS. 

COMMONLY USED ABBREVIATIONS 

The following is a list of the abbreviations used in this document. 

RX - This is used for Receive, most commonly used to describe the 
characters which are entering the card from the frontplane. 

TX - Transmit; most commonly used to describe the characters that 

the host is sending to the card to be sent out one of the ports. 

ISR - Interrupt Service Routine 

OVERVIEW OF FIRMWARE 

The purpose of this chapter is to give an overview of the basic 
structure of the firmware on the FORDYCE card. Except for the Self 
Test and Initialization routines (see next section) , all of the 
firmware on the card is completely interrupt driven. The interrupts 

can come from 

either the host via the INT-COND register in the card, the UARTs 
(SIO's) or the CTC's. The first portion of this chapter gives a 
somewhat external explanation of all the possible interrupts the 
card may get. The second portion of this chapter will give an 
overview of the possible interrupts the card may send to the host 
(via the COMMAND register) with an explanation of the circumstances 
which cause the card to send them. 

The firmware on the 98642A card can be accessed in three ways: 

1. System power-up - This causes a card reset and a jump to 
location in the ROM (the beginning of Self Test) . Self 
Test is executed and, if successful, is followed by Init 
(card initialization routine) . The end of Init is an 
idle loop that is in essence the main routine of the 
firmware. All the other firmware on the card is interrupt 
driven. 
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2. Soft Reset - A soft reset is triggered by the host writing 

a 80H to the RESET/I. D register (Z-80 address 8000H) . This 
causes a NMI interrupt to the Z-80 causing a jump to location 
66H in the ROM. This location contains a jump to the Init 
routine described above. 

3. Z-80 Interrupt - The Z-80 may be interrupted by either the 
UARTs (SIO) or the Counter Timer Chips (CTC) . The following 
illustrates the types of interrupts associated with each 
type of chip. 

SIO - Receive interrupt: Incoming data to card 

Transmit interrupt: Outgoing data from the host 

External status interrupt: Modem line changes *(put note 

about ST RTS line) 

CTC - Host interrupt via the COMMAND register 
Timer interrupts (16 millsec.) 

In the following sections, the CTC and SIO interrupt service routines 
will be identified and briefly described. 

SIO - RECEIVE INTERRUPT ROUTINES 

§| there are four ports on the card, there is a Receive Interrupt 
sociated with each port. An incoming character causes a jump to 
the routine associated with the port which received the character. 
These routines are functionally identical. 

The Receive Interrupt routine basically retrieves the character from 
the port the interrupt was received on, strips any parity bits, 
checks the Bit Map location for the character, sends the host a 
Special Character interrupt if the Bit Map location is set, and 
places the character in the Receive buffer along with a status 
byte . 

There are also four Receive Error routines which are called instead 
of the four described above when there is an error (parity, overflow, 
or framing) associated with a Receive character. These routines are 
also functionally identical. 

The Receive Error routines only differ from the Receive routines in 
that they first retrieve the type of error from the SIO, and set the 
appropriate bits in the status byte to indicate the type of error. 
After this, the rest of the Receive Error routine is the same as the 
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Receive routine. 

SIO - TRANSMIT INTERRUPT ROUTINES 

As with Receive Interrupts, there is a Transmit routine associated 
with each port. These interrupts occur when the SIO has already 
transmitted a character and is ready to transmit another. These 
routines are also functionally identical. 

The Transmit routine first checks that the Transmit buffer is not 
empty. If not, a character is retrieved and sent to the SIO to be 
transmitted. 

SIO - EXTERNAL STATUS INTERRUPT ROUTINES 

These interrupt service routines are called when one of the SIO 

channels has a transition on either one of the modem lines or 
a Break has occurred. There is an External Status routine for 
each port to determine which condition caused the interrupt. 
There is also a Break subroutine which all four External Status 
routines call if the reason for the interrupt was a incoming 
Break. 

CTC - 16 MILLISECOND TIMER INTERRUPT 



When the 16 millisecond timer in the CTC times out the Z-80 is 
interrupted and the Timer Interrupt Service routine is invoked. 
The purpose of this routine is to send an interrupt to the host 
to inform it to check the Receive buffers for characters. 



CTC - HOST INTERRUPTS 

Whenever the host writes a value to the COMMAND register, a Host 
Interrupt service routine is invoked via CTC 1. The interrupt 
service routine accesses the COMMAND register to determine the 

type of host interrupt called. As described in the ERS, the bits 
in the COMMAND register represent the types of host interrupts 
available. They are: 

Port Transmit Buffer Not Empty 
Port 1 Transmit Buffer Not Empty 
Port 2 Transmit Buffer Not Empty 
Port 3 Transmit Buffer Not Empty 
Port Configuration Change 
Port 1 Configuration Change 
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Configuration Change 
^©rt 3 Configuration Change 
%Jrt Send Break 
Send Break 
Send Break 
Send Break 
Modem Ouput Change 
Timer On/Off 
Self Test On 



Port 

Port 
Port 
Port 



EQUATE & VARIABLE SYMBOLS DICTIONARY 



This chapter defines all the symbols which are not used as a label or 
subprogram name. All equates and variables used in the firmware are 
contained in two files: &MX-VAR and &MX4EQUS. The labels defined 
in &MX-VAR are all of the variables used in the firmware. They will 
be defined in two section; those that are accessed by both the card 
and the host and those that are only accessed by the card. The labels 
defined in &MX4EQUS are equates used throughout the firmware. This 
file is copied to almost every other file. The labels defined in 
&MX4EQUS are cross referenced by the files which use each in the 
individual file descriptions further in this document. This chapter 
will merely give a description of the usage of each without specifying 
which firmware module uses them. 



SHARED VARIABLES IN &MX-VAR 



BD-1 
BD-2 
BD-3 



This contains the baud rate value for port 0. 
This contains the baud rate value for port 1. 
This contains the baud rate value for port 2. 
This contains the baud rate value for port 3. 



BIT-MAP : This defines the starting address for the Bit Map table 

CMND-TAB : This defines the starting address of the COMMAND 

register port specific interrupt table. 
CONFG-0 : Contains the current configuration data code for port 
CONFG-1 : Contains the current configuration data code for port 1 
CONFG-2 : Contains the current configuration data code for port 2 
CONFG-3 : Contains the current configuration data code for port 3 

ICR-TAB : This defines the starting address of the INT-COND 
register port specific interrupt table. 

MODM-IN : Contains the current status of the input modem lines 

MODM-MASK : Contains the information designating which modem input 
lines the host wants to be notified of in the event 
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of a change. 

MODM-OUT : Contains the current status of the output modem lines 

RHEAD-0 : The head pointer index for the Receive FIFO for port 

RHEAD-1 : The head pointer index for the Receive FIFO for port 1 

RHEAD-2 : The head pointer index for the Receive FIFO for port 2 

RHEAD-3 : The head pointer index for the Receive FIFO for port 3 

RTAIL-0 : The tail pointer index for the Transmit FIFO for port 

RTAIL-1 : The tail pointer index for the Transmit FIFO for port 

RTAIL-2 : The tail pointer index for the Transmit FIFO for port 

RTAIL-3 : The tail pointer index for the Transmit FIFO for port 



ST-COND : Contains the result of Self Test 



THEAD-0 : The head pointer index for the Transmit FIFO for port 

THEAD-l : The head pointer index for the Transmit FIFO for port 1 

THEAD-2 : The head pointer index for the Transmit FIFO for port 2 

THEAD-3 : The head pointer index for the Transmit FIFO for port 3 

TTAIL-0 : The tail pointer index for the Transmit FIFO for port 

TTAIL-1 : The tail pointer index for the Transmit FIFO for port 1 

TTAIL-2 : The tail pointer index for the Transmit FIFO for port 2 

TTAIL-3 : The tail pointer index for the Transmit FIFO for port 3 



UNSHARED VARIABLES (CARD ONLY) - &MX-VAR 

BITS-MSK : Contains the mask to strip off parity bits on RX characters 

RBRK-0 : This is the end-of -break-detected flag for port 

RBRK-1 : This is the end-of-break-detected flag for port 1 

RBRK-2 : This is the end-of-break-detected flag for port 2 

RBRK-3 : This is the end-of-break-detected flag for port 3 

STAT-0 : Contains the bit pattern for the status register - port 

STAT-1 : Contains the bit pattern for the status register - port 1 

STAT-2 : Contains the bit pattern for the status register - port 2 

STAT-3 : Contains the bit pattern for the status register - port 3 

TEST : This is a general purpose location used in Self Test 

TMPTAB : The starting addr. of the temporary table for CMND-TAB data 

TMRFLG : The flag which indicates whether the timer is off or on 

TONO : Transmitter on/off flag for port 
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T0N1 : Transmitter on/off flag for port 1 

0N2 : Transmitter on/off flag for port 2 
N3 : Transmitter on/off flag for port 3 

WR3-0 : Contains the current value in SIO write register 3 for port 
WR4-0 : Contains the current value in SIO write register 4 for port 
WR5-0 : Contains the current value in SIO write register 5 for port 

WR3-1 : Contains the current value in SIO write register 3 for port 1 
WR4-1 : Contains the current value in SIO write register 4 for port 1 
WR5-1 : Contains the current value in SIO write register 5 for port 1 

WR3-2 : Contains the current value in SIO write register 3 for port 2 
WR4-2 : Contains the current value in SIO write register 4 for port 2 
WR5-2 : Contains the current value in SIO write register 5 for port 2 

WR3-3 : Contains the current value in SIO write register 3 for port 3 
WR4-3 : Contains the current value in SIO write register 4 for port 3 
WR5-3 : Contains the current value in SIO write register 5 for port 3 



EQUATES - &MX4EQUS 

BEG-BD : Initial value for BD registers - 9600 baud 

BEG-CONFG : Initial value for CONFG registers 

Weak : Contains bit position value for the status byte break bit 



CTC-0-C0 
CTC-0-C1 
CTC-0-C2 
CTC-0-C3 

CTC-1-C0 
CTC-1-C1 
CTC-1-C2 
CTC-1-C3 



CTC #0 Channel address (used as pt baud rate generator) 

CTC #0 Channel 1 address (used as pt 1 baud rate generator) 

CTC #0 Channel 2 address (used for host interrupts) 

CTC #0 Channel 3 address (unused) 

CTC #1 Channel address (used as pt 2 baud rate generator) 

CTC #1 Channel 1 address (used as pt 3 baud rate generator) 

CTC #1 Channel 2 address (used for timer interrupts) 

CTC #1 Channel 3 address (unused) 



COM-REG : Address of COMMAND register 

CTC-V0 : Beginning CTC vector in RAM for Self Test CTC tests 

CTC-V1 : Beginning CTC 1 vector in RAM for Self Test CTC tests 
CTCWRD : CTC Channel Control word value for 16 millsec. timer 
ERR-MSK : Mask used to isolate status byte bits in RX Error ISR 
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ESMSK1 : Mask used to isolate modem line input bits in Ext. Stat. ISR 

ESMSK2 : Mask used to isolate Bit in MODM-IN register 

EVAL : Test value in Self Test - NMI test 

FRAME : Contains bit position value for Framing error in Status byte 

IC-BIT : Bit position in MODM-MASK and MODM-IN reg. for IC bit 

INT-CODE : INT-COND register value of Self Test Done interrupt 

INT-COND : Address of INT-COND register 

INT-REG : Address of Hardware status register - INT-REG 

MOD-INT : INT-COND bit for Input Modem Line Change interrupt 

OVRRUN : Contains bit position value for Overrun error in Status byte 

PARITY : Contains bit position value for Parity error in Status byte 

PASS : Value of ST-COND register when Self Test passes 

PORTO : Bit position for port specific int. in INT-COND reg. - port 

PORT1 : Bit position for port specific int. in INT-COND reg. - port 1 

P0RT2 : Bit position for port specific int. in INT-COND reg. - port 2 

PORT3 : Bit position for port specific int. in INT-COND reg. - port 3 

RAM-BEG : Address of beginning of RAM 

RAM-SEG : Number of 256 byte segments in RAM - used in Self Test 

RAM-SIZ : Number of bytes in RAM 



RESET : Address of RESET/ID register 

ROM-BEG : Address of beginning of ROM 

ROM-END : Address of last byte of ROM 

ROM-SEG : Number of 4K segments of ROM - used in Self Test 



RX-BASEO 
RX-BASE1 
RX-BASE2 
RX-BASE3 



High byte of RX FIFO tail pointer indexes - port 

High byte of RX FIFO tail pointer indexes - port 1 

High byte of RX FIFO tail pointer indexes - port 2 

High byte of RX FIFO tail pointer indexes - port 3 
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•REG : Address of Semaphore register 



SIO-O-AD 
SIO-O-AC 
SIO-O-BD 
SIO-O-BC 



SIO #0 Channel A data address 
SIO #0 Channel A control address 
SIO #0 Channel B data address 
SIO #0 Channel B control address 



SIO-l-AD : SIO #1 Channel A data address 

SIO-l-AC : SIO #1 Channel A control address 
SIO-l-BD : SIO #1 Channel B data address 
SIO-l-BC : SIO #1 Channel B control address 

SPEC-ICR : ICR-TAB bit position value for Special Character interrupt 

ST-COND : Address of ST-COND register (this is also defined in &MX-VAR 
Its a case of overkill but was done before this was written) 

ST-INT : INT-COND bit position value for Self Test interrupt 

SVAL : Test value used in Self Test - NMI test 

TEST : Address of general purpose test location (this is also defined 
in &MX-VAR as is ST-COND - another case of overkill) 

TFIFO-0 : Low byte base for TX head pointer index for port 

•fCFO-1 : Low byte base for TX head pointer index for port 1 

IFO-2 : Low byte base for TX head pointer index for port 2 

TFIFO-3 : Low byte base for TX head pointer index for port 3 

TME-INT : INT-COND bit position value for Time-Out Timer interrupt 

TMSK : Mask to isolate the low nibble of the TX head pointer 

TMRPRE : CTC prescale value for the 16 millisecond timer 

TX-BASE : Contains the high byte value for all of the TX head pointers 

VEC : The beginning address of the interrupt vectors in ROM 

MEMORY ADDRESS SPACE 

The card contains a total of 2K of shared RAM and 8K of ROM. 
However, the Z-80 has an address space of 64K bytes. The following 
diagram illustrates the practical division of this address space on 
the FORDYCE card. 
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Chipmunk 
Address (HEX) 



Z80 
Address (HEX) 



FFFF 

9001 

8FFF 

8005 

8003 
8001 

7FFF 

0007 

0005 
0003 
0001 

N/A 

N/A 



•+ FFFF 



UNUSED 

RAM 
SPACE 



SHARED 
RAM 



Command Reg. 
Int-Cond Reg. 



UNUSED 
REGISTER 
SPACE 



Semaphore Reg. 
Interrupt Reg. 
Reset/ I. D. Reg 



UNUSED 

PROGRAM 
SPACE 



8K EPROM 
PROGRAM 
SPACE 



C800 

C7FF 

C002 

C001 
C000 

BFFF 

8003 

8002 
8001 
8000 



< + 



2K RAM 

I 



< + 



2000 
1FFF 




SHARED 

MEMORY 
SPACE 



MAP OF ENTIRE 
FORDYCE MEMORY SPACE 



RAM MAP 

The following map displays the organization of the 2K of shared 
RAM on the card. 



HOST ADDRESS (hex) 

| STACK - 80 BYTES 



8FFF 
8F61 



8F5F 



| TRANSMIT 16 BYTES 



Z-80 ADDRESS (hex) 



C7FF 
C7B0 



C7AF 
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8F41 



| FIFO - PORT 



C7A0 



8F3F 
8F21 


TRANSMIT 16 
FIFO - PORT 1 


BYTES 


C79F 
C790 


8F1F 
8F01 


TRANSMIT 16 
FIFO - PORT 2 


BYTES 


C78F 
C780 


8EFF 
8EE1 


TRANSMIT 16 
FIFO - PORT 3 


BYTES 


C77F 
C770 


8EDF 
8E01 


SHARED RAM REGISTERS 
& CONFIG. DATA 


C76F 
C700 


8DFF 
8C01 


BIT MAP - 256 


BYTES 


C6FF 
C600 


8BFF 
8A01 


RECEIVE 256 
FIFO - PORT 


BYTES 


C5FF 
C500 


89FF 
8801 


RECEIVE 256 
FIFO - PORT 1 


BYTES 


C4FF 
C400 


87FF 
8601 


RECEIVE 256 
FIFO - PORT 2 


BYTES 


C3FF 
C300 


85FF 
8401 


RECEIVE 256 
FIFO - PORT 3 


BYTES 


C2FF 
C200 


83FF 
8005 


SCRATCH 510 BYTES 
variables - card only 


C1FF 
C002 


8003 


| COMMAND REG. 


| C001 


8001 


INT-COND REG 


» 


| cooo 




RAM MAP 







The following is a illustration of ROM showing the file entry points 
and their placement. The value at the high byte of ROM is a CRC 
checksum value which is used to test ROM in the Self Test. 



1FFC 



CRC CHECKSUM 
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1FC0 | 


SIO & CTC ISR VECTORS | 


0F2D | 


unused | 


0F04 | 


EXTMR | 


0EA7 | 


MXMOD | 


0E5A 


MXSBR | 


ODBA 


MXPT3 | 


OD1B 


MXPT2 | 


0C7D 


MXPT1 | 


OBEO 


MXPTO | 


OAFD 


MXEXT | 


0A97 


MXHST | 


0A80 


MXTMR | 


0964 


| MX4TX | 


0798 


| RXERR | 


0624 


| RX-ISR | 


0624 


| MX-VAR | 


04C0 


| INIT | 


0000 


| MX4ST | 



ROM MAP 



HARDWARE CONSIDERATIONS and DEFAULT SETTINGS 



The FORDYCE card consists of a Z-80A microprocessor, 
2K of RAM (shared) , 8K of ROM, 

two Z-80 CTC's (Counter Timer Clocks), and two Z-80 SIO/2 chips (UARTs) 
There are 8 DIP switches on the card. 
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^UjP 



P SWITCH # 
0-4 
5,6 



USED FOR 

SELECT CODE 

CARD INTERRUPT PRIORITY 



DEFAULT SETTING 

13 (DECIMAL) 
3 (HIGHEST) 



CONSOLE CONNECTION - YES OR NO 



(NO) 



CTC TIMERS 



As mentioned previously, there are two CTC chips on the FORDYCE 
card. Each chip has four counter/timer channels for a total of 
8 available on the card. Four of these are used as baud rate 
generators and one is used as a receive buffer time-out timer. The 
remaining three channels are unused. 



CTC CHANNEL # 

CTC #0 CHANNEL 
CHANNEL 1 
CHANNEL 2 
CHANNEL 3 







C #1 CHANNEL 

CHANNEL 1 
CHANNEL 2 
CHANNEL 3 



SIO OUTPUT LINES 



USED FOR 

BAUD RATE GENERATOR FOR PORT 
BAUD RATE GENERATOR FOR PORT 1 
HOST INTERRUPT LINE 
UNUSED 

BAUD RATE GENERATOR FOR PORT 2 

BAUD RATE GENERATOR FOR PORT 3 
TIME-OUT TIMER FOR RX BUFFERS 
UNUSED 



There are two SIO chips, each of which has two channels and two 
sets of modem lines. 

The following is a summary of the uses of the modem lines. The SYNC 
lines are included because one will be used as a modem line. 



SIO CHANNEL A 
(PORT 0) 



SIO 
LINE 

RTS 
DTR 
CTS 
DCD 



MODEM 
SYMBOL 

RS 
TR 
CS 
RR 



USED AS 

REQUEST TO SEND - OUTPUT 
TERMINAL READY - OUTPUT 
CLEAR TO SEND - INPUT 
RECEIVER READY - INPUT 



A-98642-90014-1 
PAGE 17 of 51 



SYNC 



DM 



DATA MODE - INPUT 



SIO CHANNEL 


B 


RTS 


(PORT 1) 




DTR 
CTS 
DCD 


SIO 1 CHANNEL 


A 


RTS 


(PORT 2) 




DTR 
CTS 
DCD 
SYNC 


SIO 1 CHANNEL 


B 


RTS 


(PORT 3) 




DTR 
CTS 
DCD 



SR 



IC 



SIGNAL RATE SELECTOR - OUTPUT 

UNUSED 

HOOD DETECT - PORT 1 

INCOMING CALL - INPUT 



UNUSED 
UNUSED 
HOOD DETECT 
UNUSED 
UNUSED 



- PORT 2 



ENABLE FRONTPLANE DRIVERS 

UNUSED 

HOOD DETECT - PORT 3 

UNUSED 



NOTE: To detect a hood for Port 0, the firmware will first clear 
the TR line, then perform a loopback check on the IC and 
SR lines (These two are looped together in the modem port 

test hood) . 

FIRMWARE PRIORITY SCHEME 

All firmware events will be interrupt driven. 
When the 2-80 is executing an Interrupt Service Routine, interrupts 
will be disabled to prevent another interrupt from preempting the 
current routine. Therefore, the 

priority of the interrupts is dependent upon the priority of 
the SIO and CTC channels and their placement on the interrupt daisy 
chain. 

The following is a list of the major firmware events in order of 
their priority. (high to low) 



1. RECEIVE DATA - PORT 

2. TRANSMIT DATA - PORT 

3. MODEM LINE CHANGES - CS, 

4. RECEIVE DATA - PORT 1 

5. TRANSMIT DATA - PORT 1 

6. MODEM LINE CHANGES - IC 

7. RECEIVE DATA - PORT 2 

8. TRANSMIT DATA - PORT 2 

9. RECEIVE DATA - PORT 3 



DM, and RR 
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10. TRANSMIT DATA - PORT 3 

11. TIMER INTERRUPTS 

12. HOST INTERRUPTS 

TEST HOODS 

The FORDYCE card physically has three direct connect RJ-11 
ports and one 25 pin standard modem port. As mentioned previously, 
the modem port may also be used as a direct connect port. 

There will be two types of test hoods for the FORDYCE card, one 
for the direct connect port and one for the modem port. The test 
hoods for the direct connect ports consist of an RJ-11 plug with the 
wires looped back. The test hood for the modem port will be a standard 
25 pin modem connector with the ouput modem lines connected to the 
input modem lines. 

Any number of test hoods may be connected to the board for Self 
Test. In other words, during Self Test, the firmware will check each 
port for a test hood. If no test hood is present on a particular port, 
the Self Test will simply skip the external loopback test for that 
port. 

DEFAULT LINE CHARACTERISTICS AND FORMAT 

When the card powers up, it will set up the UARTs with the 
<J|tfault line characteristics. The host will be able to change these 
SJter Self Test and Initialization. The following is a list of 
each line characteristic and its default value. The default line 
characteristics will be the same for each port. 

1. SPEED - 9600 BAUD 

2. NUMBER OF STOP BITS - 1 

3. PARITY - NONE 

4. NUMBER OF BITS PER CHARACTER - 8 

DEFAULT BIT MAP 

After card initialization, the Bit Map will be cleared (i.e. all 
locations «= 0) . In other words, the card will not be set to recognize 
any character. 

DEFAULT TIMER SETTING 

The 16 millisecond timer will be off after power up and card 
initialization. The host is responsible for enabling the timer. 
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FIRMWARE FILE LIST & OVERVIEW 

The following is a list of the files which comprise the firmware 
and a brief description of which portion of code they contain. 
Included in the description is the following information: All 
lables which are either used or defined in the file which have 
impact on other files (simple in-file jump labels are not included) , 
variables used in the file (all variables in the firmware are 
defined in the file %MX-VAR) , and all macros called in the file 
(all macros used in the firmware are contined in the file &MX4EQUS) . 

The 

order in which the files are described below is the order that they 

were loaded 

in on the final loading of the FORDYCE firmware. The first file 

listed occupies address 0000 and the rest follow in order. Several 

of the files contain absolute code segments. However, this detail 

will be described in the individual detailed explanations of each 

code module. The "%" in front of each filename denotes that the 

file contains the object code. 

The term "Public Labels" will be used to denote those labels which 
are defined in the file being described but used in other files. 
The term "External Labels" will be used to denote the opposite; those 
labels which are defined in other files and used in the currently 
described file. The term "Variables" will be used to describe those 
labels which are used to define a portion of RAM address space. As 
mentioned above, all of the variables in the firmware are defined in 
the file %MX-VAR and are therefore external to all of the other files 



%MX4ST - This file contains the entire Self Test. 
Public Labels: MX4ST, CTC-ERRO 
External Labels: INIT, 
Variables : ST-COND , TEST 

%MX4INIT - The cards' initialization code is contained in this file. 
At the end of the initialization, the file also contains the 
"do nothing" loop that occupies the card while waiting for inter- 
rupts. %MX4EQUS is copied to this file. 

Public Labels: INIT, BD-TAB 

External Labels : TX-0 , TX-1 , TX-2 , TX-3 , REC-0 , REC-1 , REC-2 , REC-3 , 

RX-ERRO , RX-ERR1 , RX-ERR2 , RX-ERR3 , TX-0 , TX-1 , TX-2 , 
TX-3 , TMR-ISR, HSTINT , CTC-ERRO , CONFG-0 , CONFG-1 , 
CONFG-2 , CONFG-3 , BD-0 , BD-1 , BD-2 , BD-3 , MDM1-SUB , 
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MDM3-SUB 
Variables : BITS-MSK, THEAD-0 , THEAD-1 , THEAD-2 , THEAD-3 , TTAIL-0 , 
TTAIL-l,TTAIL-2,TTAIL-3,WR3-0,WR3-l,WR3-2,WR3-3, 
WR4-0,WR4-l,WR4-2,WR4-3,WR5-0,WR5-l,WR5-2,WR5-3, 
TMRFLG 

Macros : none 

%MX-VAR - This file contains all of the variable labels which are used 
used in the firmware. The file is divided into two segments, a data 
segment and an absolute segment. The variables defined in the data 
segment (DSEG) are those used only by the firmware and the variables 
defined in the absolute segment (ASEG) are used by both the card and 
the host. 

Public Labels: Every label defined in the file is public. All of 

the labels listed as "Variables" in the other file 
descriptions are Public Labels in this file 

External Labels: None 

Variables: Not applicable 

Macros: Not applicable 

%MX4RX - This file contains the Receive interrupt service routines for 
all four ports. These routines are expanded macros which are 
defined in the file &MX4EQUS. &MX4EQUS is copied to this file. 

Public Labels: REC-0,REC-l,REC-2,REC-3 

External Labels: None 

Variables : STAT-0 , STAT-1 , STAT-2 , STAT-3 , RHEAD-0 , RHEAD-1 , RHEAD-2 , 

RHEAD-3 ,RTAIL-0 ,RTAIL-l,RTAIL-2 ,RTAIL-3 , BIT-MAP, ICR-TAB, 

BITS-MSK 
Macros : RECISR 

%RXERR - This file contains the Receive Error interrupt service routines 
for all four ports. These routines are expanded macros which are 
defined in the file &MX4EQUS. &MX4EQUS is copied to this file. 

Public Labels: RX-ERRO , RX-ERR1 , RX-ERR2 , RX-ERR3 

External Labels: None 

Variables : STAT-0 , STAT-1 , STAT-2 , STAT-3 , RHEAD-0 , RHEAD-1 , RHEAD-2 , 

RHEAD-3 , RTAIL-0 , RTAIL-1 , RTAIL-2 , RTAIL-3 , BIT-MAP , ICR-TAB , 
BITS-MSK 
Macros: SPEC-RX 
RECISR 

%MX4TX - This file contains the Transmit interrupt service routines for 
all four ports. These routines are expanded macros which are defined 
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in the file &MX4EQUS. &MX4EQUS is copied to this file. 

Public Labels: TX-0,TX-l,TX-2,TX-3 

External Labels: None 

Variables : THEAD-0 , THEAD-1 , THEAD-2 , THEAD-3 , TTAIL-0 , TTAIL-1 , TTAIL-2 , 

TTAIL-3 , TONO , T0N1 , T0N2 , T0N3 , ICR-TAB, BITS-MSK 
Macros: TX-ISR 

%MXTMR - This file contains the CTC interrupt service routine which 
sends a Timer interrupt to the host. &MX4EQUS is copied to this 
file. 

Public Labels: TMR-ISR 
External Labels: None 
Variables: None 
Macros : None 

%MXHST - This file contains the beginning of the interrupt service 
routine which is invoked by CTC 0,CH 2 when the host puts a value 
in the COMMAND register. This file contains the portion of the 
host ISR which decodes the COMMAND register to decipher the reason 

for the interrupt. &MX4EQUS is copied to this file. 

Publ ic Labels : HSTINT , EEE2 , EEE3 , EEE4 , EEE5 , EEE6 , EEE7 

External Labels : ISRPTO , ISRPT1 , ISRPT2 , ISRPT3 , MODOUT , TMROFF , MX4ST 

Variables : TMPTAB , CMND-TAB 

Macros : None 

%MXEXT - This file contains the SIO External Status interrupt service 
routines for all four ports. An external status interrupt occurs 
when either a Break has been received or a change has occurred on 
one of the modem lines. &MX4EQUS is copied to this file. 

Public Labels : EX-0 , EX-1 , EX-2 , EX- 3 ,MDM3-SUB , MDM1-SUB 

External Labels: None 

Variables : RBRK-0 , RBRK-1 , RBRK-2 , RBRK-3 , STAT-0 , STAT-1 , STAT-2 , STAT-3 , 

MODM-IN , MODM-MASK 
Macros : None 

%MXPT0 - This file contains part of the Interrupt Service routine for 
a host interrupt. In particular it contains the routine for a port 
specific interrupt for port 0. &MX4EQUS is copied to this file. 

Public Labels: ISRPTO 

External Label s : BD-TAB , EEE2 , SNDBRK , HSTCON 

Variables: TMPTAB ,CONFG-0,WR3-0,WR4-0,WR5-0,BD-0,TTAIL-0,THEAD-0, " 

TONO 
Macros : HOSTTX 
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J^XPTl - This file contains part of the Interrupt Service routine for 
^J a host interrupt. In particular it contains the routine for a port 
specific interrupt for port 1. &MX4EQUS is copied to this file. 

Public Labels: ISRPT1 

External Labels: BD-TAB,EEE3,SNDBRK,HSTC0N 

Variables: TMPTAB, CONFG-l,WR3-l,WR4-l,WR5-l,BD-l,TTAIL-l,THEAD-l, 

T0N1 
Macros: HOSTTX 

%MXPT2 - This file contains part of the Interrupt Service routine for 
a host interrupt. In particular it contains the routine for a port 
specific interrupt for port 2. &MX4EQUS is copied to this file. 

Public Labels: ISRPT2 

External Labels: BD-TAB,EEE4,SNDBRK,HSTC0N 

Variables : TMPTAB, CONFG-2 , WR3-2 , WR4-2 , WR5-2 , BD-2 , TTAIL-2 , THEAD-2 , 

T0N2 
Macros: HOSTTX 

%MXPT3 - This file contains part of the Interrupt Service routine for 
a host interrupt. In particular it contains the routine for a port 
specific interrupt for port 3. &MX4EQUS is copied to this file. 

Public Labels: ISRPT3 

External Labels: BD-TAB,EEE5,SNDBRK,HSTC0N 

Variables: TMPTAB, CONFG-3 ,WR3-3 , WR4-3 ,WR5-3 ,BD-3 ,TTAIL-3 ,THEAD-3 , 

T0N3 
Macros : HOSTTX 

%MXSBR - This file contains two subroutines which are part of the 
host interrupt service routine. These subroutines are called by 
ISRPT0,ISRPT1,ISRPT2, and ISRPT3 . The first subroutine is part 
of a Configuration Change interrupt from the host. The second 
subroutine is part of the Send Break interrupt from the host. 

&MX4EQUS is copied to this file. 

Public Labels: HSTCON,SNDBRK 
External Labels: None 
Variables : BITS-MSK 
Macros : None 

%MXMOD - This file contains the part of the host interrupt service 
routine which is responsible for handling a Modem Output Line 
Change interrupt. &MX4EQUS is copied to this file. 

Public Labels: MODOUT 
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External Labels: EEE6 
Variables: WR5-0,WR5-1,MODM-OUT 

%EXTMR - This file contains the part of the host interrupt service 
routine which is responsible for handling a Timer On/Off interrupt 
&MX4EQUS is copied to this file. 

Public Labels: TMROFF 
External Labels: EEE7 

Variables: TMRFLG 
Macros : None 

&MX4EQUS - This file is not part of the object code. It is a sort 
of service file which contains all of the equates used in the 
firmware and defines all of the macros. This file is copied to 
almost every other file in the firmware with the exception of 
%MX4ST and %MX-VAR. 

The names of the macros contained in this file are: 

RECISR - Used in %MX4RX 

SPEC-RX - Used in %RXERR 

TX-ISR - Used in %MX4TX 

HOSTTX - Used in %MXPTO , %MXPT1 , %MXPT2 , %MXPT3 

DETAILED DESCRIPTION OF FIRMWARE MODULES 

This chapter is devoted to a detailed description of each of the 
firmware modules. A firmware module is rather loosely defined as 
a piece of code with one entry point and one exit point which 

performs one basic function. The first part of this chapter identi- 
fies each of these modules by entry point name and shows the source 
of interrupt which causes the execution of the routine. (Remember, 
all of the firmware on the card is interrupt driven) . The second 
section is an explanation of the basic algorithms used in the 
firmware modules. This is in a separate section because most of 
the algorithms are used in more than one module. The sections 
that follow the algorithm explanation describe each of the firmware 
modules listed in the first section. 

OUTLINE OF FIRMWARE MODULE RELATIONSHIPS 

The following is an outline of the relationships of the firmware 
modules to each other and the source of the interrupt that starts 
off a particular chain of events. The labels that are indented are 
those routines that are called by the preceeding label. For example, 
HSTINT calls ISRPTO which in turn calls SNDBRK and HSTCON. In the 
sections that follow, each of these routines will be explained in 
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detail. 




Interrupt 




Source 


Label 


power-up* 


MX4ST 


soft reset 


INIT 


SIO 


REC-0 


SIO 


REC-1 


SIO 


REC-2 


SIO 


REC-3 


SIO 


RX-ERRO 


SIO 


RX-ERR1 


SIO 


RX-ERR2 


SIO 


RX-ERR3 


SIO 


TX-0 


SIO 


TX-1 


SIO 


TX-2 


SIO 


TX-3 


CTC 


TMR-ISR 


CTC 


HSTINT 




ISRPTO 




SNDBRK 




HSTCON 




ISRPT1 




SNDBRK 




HSTCON 




ISRPT2 




SNDBRK 




HSTCON 




ISRPT3 




SNDBRK 




HSTCON 




MODOUT 




TMROFF 


SIO 


EX-0 




MDM3-SUB 




BRK-SUB 


SIO 


EX-1 




MDM1-SUB 




BRK-SUB 


SIO 


EX-2 




BRK-SUB 


SIO 


EX-3 



Description 



Self 


Test 




Card 


initialization routine 




Receive 


interrupt routine - 


pt 






it — 


pt 1 






it — 


pt 2 






ii _ 


pt 3 


Receive 


Error int. routine 


- pt 






ti 


- pt 1 






it 


- pt 2 






ti 


- pt 3 


Transmit interrupt routine 


- pt 






ii 


- pt 1 






it 


- pt 2 






ii 


- pt 3 


16 mill. 


, timer interrupt routine 


Host 


interrupt - from COMMAND reg. 



Port specific interrupt - pt 

Send Break int. routine 

Config. Change interrupt routine 

Port specific interrupt - pt 1 

See Above 
it 

Port specific interrupt - pt 2 

See Above 
ii 

Port specific interrupt - pt 3 

See above 
it 

Modem Output Line Change int. routine 

Timer On/Off interrupt routine 

External Status Change int. - pt 

Modem Input Line chg for port 

Break Detection routine 

External Status Change int. - pt 1 

Modem Input Line chg for port 1 

Break Detection routine 

External Status Change int. - pt 2 

Break Detection routine 

External Status Change int. - pt 3 
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BRK-SUB Break Detection routine 
EXPLANATION OF COMMON ALGORITHMS 

1. RECEIVE BUFFER, EMPTY/FULL DECISION - The Receive buffers are 

handled as circular FIFO data structures with an associated 
head and tail index for each. The algorithm used here never 
lets the buffer get completely full, so when then head and tail 
indexes are equal it means that the buffer is empty, not full. 
The method for making sure the buffer never gets completely full 
is to add 2 to the tail index and check for equality with the 
head index before a Receive character is placed into the buffer. 
If they are equal, the buffer is assumed full and the character 
received is discarded. In essence this means that there is really 
only room for 127 characters per Receive buffer instead of 128. 

2. HEAD & TAIL POINTER HANDLING - The head and tail pointers for the 

Receive buffers consist of Head and Tail index pointers and a 
base pointer address. The base pointer is the upper byte of the 
Receive buffer address and the head and tail index pointers are 
the lower byte. The effective address then for any address in 
a Receive buffer is the concatenation of the base and the head 
or tail index. As the Receive buffers are only 256 bytes, 
buffer wrapparound is automatically taken care of as the head 
and tail indexes are 8 bit quantities. 

3. BIT MAP CHECK - As explained in the Firmware ERS, the Bit Map is 

a 256 byte table with each byte representing a character. In 
other words, the character whose value is 56 is associated with 
the byte in the Bit Map whose relative placement in the table is 
56 from the beginning of the table. The first four bits in each 
Bit Map location represent the four ports. When a character is 
received, it is concatenated with the Bit Map Base value to form 
the effective address of the Bit Map location associated with the 
character. Once the byte is retrieved, the bit representing the 
port the character was received at is checked. If the bit is on, 
the character is a "special" character and a Special Character 
interrupt is sent to the host. If the bit is off, no interrupt 
is sent. 

4. STRIPPING PARITY BITS - After each receive character is retrieved 

from the SIO, a logical AND is performed with it and the contents 
of a location called BITS-MSK. This location contains a mask 
designed to strip off any possible parity bits that might be at- 
tached to the character. The value of BITS-MSK is based upon the 
number of bits per character the card is configured to. If the 
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card is configured to 7 bits per character, BITS-MSK will contain 
a "1" in the first 7 bit locations and a M 0" in the 8th bit. If 
the card is set to 6 bits per character, BITS-MSK is 00111111 or 
3F hex. The same idea holds for other bits per character settings 
BITS-MSK is updated every time the card is reconfigured. 

5. SENDING AN INTERRUPT TO THE HOST - USE OF SEMAPHORE REGISTER - As 

described in the ERS, when the card wants to send an interrupt to 
the host it writes a value to the INT-COND register. However, 
before writing to either the INT-COND register or the ICR-TAB, 
The card will first "grab" the Semaphore register. In other 
words, the card will check the Semaphore register to see if it 
is free. If not, the card will sit and cycle, continually 

checking the Semaphore register until the host releases it. 
The basic protocol is the same for the card and the host. Both 
grab the Semaphore before accessing either the COMMAND register, 
the INT-COND register, the CMND-TAB registers, or the ICR-TAB 
registers. 

6. STATUS BYTE - There is a location reserved for the status byte 

which is initially set to zero in the initialization routine. 
This byte is retrieved and written to the appropriate Receive 
buffer as each character is placed in the buffer. If there is 
no room in the buffer and the receive character is discarded, 
the buffer overflow bit is set in this byte. The next character 
that is placed in the Receive buffer will also have the status 
byte with the overflow bit set, notifying the host that there 
are missing characters between the last one picked up and the 
current character. The Receive error routine also can alter 
the status byte to display error conditions associated with 
an incoming character. However, once a character is placed in 
the buffer with the status byte, the status byte register is 
cleared for the next character. 

7. TRANSMIT BUFFER, EMPTY/FULL DECISION - As with the Receive 

buffers, the Transmit buffers are also handled as circular 
FIFO buffers. Also, the Transmit algorithm which resolves 
empty or full buffer arbitration is the same for Transmit 
Buffers as it is for Receive buffers. In the case of the 
Transmit buffers, the host never lets the buffer get completely 
full, so when the Head and Tail pointer indexes are equal, the 
buffer is empty. 

8. HEAD & TAIL POINTER HANDLING - As with the Receive buffer 

pointers, the head and tail pointers are actually a concatena- 
tion of head and tail pointer indexes and a Transmit buffer 
base address (which represents the upper byte of the actual 
Transmit buffer address) . However, unlike the Receive buffer 
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pointers, the Transmit head index actually consists of two 
values, the base lower byte and the head pointer index. Buffer 
wrapparound is handled by incrementing the head pointer index, 
and masking off the top nibble. When the actual pointer address 
is needed, the head index is added to the base lower byte and 
the result is concatenated with the base upper byte. 

9. REASON FOR CYCLING IN HSTINT ROUTINE - As with all of the inter- 

rupt service routines, the HSTINT is non-interruptable. In other 
words, interrupts are disabled at the start of the routine and 
reinabled at the end of the routine. Consequently, during the 
course of this routine, if the host sends another interrupt it 
will be lost because the CTC can't buffer interrupts. Therefore, 
this routine will keep checking for and servicing interrupts 
until the COMMAND register is empty. 

10. DECIPHERING THE TYPE OF INTERRUPT - The E register is used to hold 

the contents of the COMMAND register as it is being deciphered. 
Each bit position in the COMMAND register represents a particular 
interrupt (with the exception of bit 7) . Therefore, the inter- 
rupts are deciphered by putting the value in the COMMAND register 
into the E register and rotating each bit to the right one by one 
testing the carry bit each time. If a bit is on, this routine 
jumps to the subroutine responsible for handling that particular 
interrupt. It is possible for there to be more than one inter- 
rupt set in the COMMAND register. When program control returns 
from a subroutine, this routine resumes checking the rest of the 
bits. 

11. CHANGING THE SIO WRITE REGISTERS TO NEW CONFIGURATION - The sub- 

routine, HSTCON, is responsible for changing the bit pattern in 
the CONFG register to match the format in the SIO Write registers 
(This is explained in more detail in the section on HSTCON.) Upon 
return from HSTCON the B register contains the changed bit pattern. 
Write Register #4 is updated by clearing out the old lower byte and 
ANDing it with the lower byte of the B register value which contains 
the bits representing the new parity and stop bits information. The 
new value in Write register 4 is then written to the SIO. SIO 
Write register 5 is updated next. Bits 5 and 6 in the B register 
value represent the new TX bits-per-character information. Bits 5 
and 6 in the old Write register 5 are cleared and the replaced 
with those in the B register. This is then written to the SIO. 
Finally, bits 6 & 7 in the B register are substituted for bits 6 
and 7 in Write register 3. These bits represent the RX bits-per- 
character information. The new copy of Write register is then 
written to the SIO. 

12. CHANGING THE BAUD RATE - The BD register contains a number which 
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represents an index into the BD-TAB, the table which contains the 

CTC Channel Control Words and the CTC Time Constant values which 
determine a specific baud rate. The value in the BD register is 
multiplied by 2 (since each baud rate has the two associated CTC 
values) and added to the base BD-TAB address to form the effective 
address. The correct Channel Control Word and the Time Constant 
value are then sent to the CTC. 

REC-0,REC-l,REC-2,REC-3 - RECEIVE INTERRUPT ROUTINES 

EXTERNAL DESCRIPTION: 

The four routines, REC-O, REC-1, REC-2, and REC-3 will be described 
together as they are virtually the same routine. The code for all 
four is defined in the macro, RECISR, which resides in the file 
&MX4EQUS. (Remember that this file is copied to the file &MX4RX which 
contains these entry points.) 

The Receive routines are called when the SIO has received a character 
at one of the ports. The Z-80 accesses the correct vector location 
for the interrupt and causes a jump to the correct Receive routine. 

The Basic purpose of the Receive routine is to retrieve the character 
from the UART (SIO) and place it in the correct Receive buffer in RAM 
along with an accompanying status byte. However, before placing the 
^teracter in RAM, the Bit Map location for the character is checked 
•RFsee if it is a special character, i.e., the host wants to know of 
it presence immediately. If the correct bit for the character and the 
port is set, a Special Character interrupt is sent to the host. It 
is the responsibility of the host to determine which character is 
special because the Special Character interrupt only notifies the host 
that such a character has been received. It doesn't specify which 
character it is and where in the buffer it has been placed. 

INTERNAL DESCRIPTION: 

Retrieve head pointer index for Receive buffer 

Retrieve tail pointer index for Receive buffer 

Tail pointer = Tail pointer + 2 

If Head = Tail then ;no more room in buffer 

Retrieve character and discard 

Set 'buffer overflow 1 bit in Status byte 

Go to exit 



else 

Retrieve character from SIO 
Mask off any parity bits 
Check correct Bit Map location 



; available buffer space 
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If Bit Map position for port set then ; special character 

Grab semaphore 

Set bit in ICR-TAB for port-specific interrupt 

Set bit in INT-COND register 

Clear semaphore 
Effective tail pointer = base + tail pointer index 
Put character into buffer 
Increment buffer address 
Put status byte into buffer 
Clear status byte register 
Tail pointer index « tail pointer index + 1 

UPON ENTRY: No relevant values in any registers. 

UPON EXIT: No relevant values in any registers. 

CALLED ROUTINES: none 

RXERR0,RXERR1,RXERR2,RXERR3 - RECEIVE ERROR INTERRUPTS 

EXTERNAL DESCRIPTION: 

As with the Receive routines, these four routines will be described 
together as they too are virtually identical except for the port 
references. In addition, except for the addition of code to decipher 
the type of error, these routines are the same as the Receive routines 
As a matter of fact, the same macro is called. Therefore, only the 
first portion of these routines will be described. At the end of that 
each Receive error routine is identical to the regular Receive routine 
for that port. 

The Receive Error routines are called when the SIO detects either a 
parity, framing, or SIO overflow error on the received character. The 
error type is denoted in the status byte and the Receive error then 
proceeds as the regular receive routine. 

INTERNAL DESCRIPTION: 

Retrieve contents of SIO Read Register 1 

Shift 1 bit to left ;so aligns with status byte 

Mask off all but bits 7,6, & 5 

Retrieve status byte register 

"OR" status byte with masked RR 1 value 

Write new value to status byte 

Reset SIO error latches 
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*The macro RECISR is now called - the routine proceeds exactly as a 
JReceive routine. 

UPON ENTRY: no relevant register values 

UPON EXIT: no relevant register values 

CALLED BY: SIO - RECEIVE ERROR INTERRUPT 

CALLED ROUTINES: none 

TX-0,TX-l,TX-2,TX-3 - TRANSMIT INTERRUPT ROUTINES 

EXTERNAL DESCRIPTION: 

As with the Receive and the Receive Error routines, these four are 
also functionally identical, i.e. all four call the same macro. 
A Transmit interrupt is generated by the SIO as the SIO transmit 
buffer goes empty. In other words, the SIO interrupts the Z-80 when 
it is ready for another character to transmit. 

The Transmit interrupt routine is responsible for retrieving a 
character from the appropriate Transmit buffer and sending it to the 
SIO. The Head and Tail index pointers for the Transmit buffer are 
first checked to see if the buffer is empty and the card sends the 
JM^t a TX Buffer Empty interrupt. If it is, a value is sent to the 
Qb to turn off TX interrupts. If there are characters in the buffer, 
the next character is retrieved and sent to the SIO and the Head index 
is updated. 

INTERNAL DESCRIPTION: 

Retrieve Head pointer index for Transmit buffer 
Retrieve Tail pointer index for Transmit buffer 
If Head - Tail then /buffer is empty 

Turn off Transmitter interrupts from SIO 

Clear Transmitter on/off flag 

Grab Semaphore register 

Send host a TX Buffer Empty interrupt 

Release Semaphore register 
else 

Effective Head pointer address « Head index + Base 

Retrieve character from TX buffer 

Send character to SIO 

Increment Head index 

UPON ENTRY: no relevant register values 
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UPON EXIT: no relevant register values 

CALLED BY: SIO - TRANSMIT BUFFER EMPTY INTERRUPT 

CALLED ROUTINES: none 

TMR-ISR - 16 MILLSEC. TIMER INTERRUPT 



EXTERNAL DESCRIPTION: 

This routine is called every time the CTC timer associated with the 
16 millisecond time-out downcounts to zero. The basic purpose of the 
routine is to send a Timer interrupt to the host. 

INTERNAL DESCRIPTION: 

Grab Semaphore register 

Send Timer interrupt to host ;set bit in INT-COND register 

Release Semaphore 

UPON ENTRY: no relevant register values 

UPON EXIT: no relevant register values 

CALLED BY: CTC - TIME OUT INTERRUPT 

CALLED ROUTINES: none 

HSTINT - HOST INTERRUPT SERVICE ROUTINE 

EXTERNAL DESCRIPTION: 

This routine is called when the host writes a value to the COMMAND 
register, i.e. sends an interrupt to the card. This routine empties 
the contents of the CMND-TAB and COMMAND registers and begins checkng 
the bits in both to determine what type of host interrupt was re- 
quested. When the interrupt has been interpreted the correct service 
routine is called. Once the interrupt has been completely serviced, 
control will return to this routine and a jump will be made to the 
beginning of the routine again to see if the host has sent another 
interrupt during the course of servicing the current one. This cycle 
will continue until the COMMAND register is empty. 

INTERNAL DESCRIPTION: 
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Grab Semaphore register 

fl:rieve value in COMMAND register 

TT COMMAND register = then goto exit 

else 

Retrieve value in CMND-TAB 

Clear COMMAND and CMND-TAB registers 

Release Semaphore register 

Check each bit in COMMAND reg. and jump to appropriate routine if set 

Go to beginning of routine 

UPON ENTRY: no relevant register (Z-80) values 

UPON EXIT: E register contains the remaining bits to be checked 
from the original value in the COMMAND register. 

CALLED BY: CTC - HOST INTERRUPT 

CALLED ROUTINES : ISRPTO , ISRPT1 , ISRPT2 , ISRPT3 ,MODOUT, TMROFF,MX4ST 

EX-0,EX-l,EX-2,EX-3 - EXTERNAL STATUS SERVICE ROUTINES 

EXTERNAL DESCRIPTION: 

As with the Receive, Receive Error, and Transmit routines, these 
routines will be described together in this section. These 
interrupt service routines are called when one of the SIO channels 
h| a transition on either the Break, DCD, CTS, or SYNC inputs. 
^TX underrun will also cause this interrupt although these routines 
will not take any action if that is what has triggered the ISR. 
Each of the ports expects different combinations of transitions. 
The following are the valid transitions for each port and an 
explanation of what these lines represent. 

PORT - BREAK Beginning or end of Break occurence 

DCD Receiver Ready modem line change 

CTS Clear to Send modem line change 

SYNC Data Mode modem line change 

PORT 1 - BREAK Beginning or end of Break occurence 

DCD Incoming Call modem line change 

PORT 2 - BREAK Beginning or end of Break occurence 

PORT 3 - BREAK Beginning or end of Break occurence 

Break (BRK-SUB) is a subroutine which is called by all four routines. 
It will be described in detail in its own section. 
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INTERNAL DESCRIPTION: 

EX-0 - Load parameters for Break subroutine 
Call BRK-SUB 
Call MDM3-SUB 

EX-1 - Load parameters for Break subroutine 
Call BRK-SUB 
Call MDM1-SUB 

EX-2 - Load parameters for Break subroutine 
Call BRK-SUB 

EX-3 - Load parameters for Break subroutine 

Call BRK-SUB 

UPON ENTRY: no relevant registers 

UPON EXIT: Before calling BRK-SUB - 

C reg = SIO control address for port 

HL reg = Address of Break on/off flag for port 

DE reg = Address of Status byte for port 

CALLED BY: SIO EXTERNAL STATUS INTERRUPT 

CALLED ROUTINES: BRK-SUB, MDM3-SUB, MDM1-SUB 

BRK-SUB - SUBROUTINE WHICH DETECTS INCOMING BREAKS 

EXTERNAL DESCRIPTION: 

BRK-SUB is a subroutine which is called by EX-O, EX-1, EX-2, and EX-3, 
the External Status interrupt service routines for ports through 3. 
The purpose of this subroutine is to detect both the beginning of an 

incoming Break and the end of an incoming Break in the SIO. (See 
the Zilog Z80-SIO Technical Manual for details on how a Break is 
detected by the SIO) . 

INTERNAL DESCRIPTION: 

If Start-of-Break then (BRK flag=0 and Break bit in SIO=l) 

Break Flag:=l 

Turn off RX interrupt (To prevent interrupt for null char) 
else 

If End-of -Break then (BRK flag=l and Break bit in SIO=0) 
Break Flag=0 
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Error reset the port (In case SIO is programmed for odd 

parity - null causes parity error) 
Set Break bit in status word (Will get RX interrupt for the 
Reinable RX interrupt null char, when reinable) 

UPON ENTRY: C reg - SIO control address for port 

HL reg - Address of Break on/off flag for port 
DE reg - Address of Status byte for port 

UPON EXIT: B reg - Contains contents of SIO Read register #0 

CALLED BY: EX-0, EX-1, EX-2 , EX-3 

CALLED ROUTINES: none 

MDM3-SUB - MODEM LINE CHANGE SUBROUTINE FOR RR, CS, DM LINES 

EXTERNAL DESCRIPTION: 

The purpose of this subroutine is to check the status of the three 
modem input lines in SIO channel A and see whether or not there has 
been a change in the lines. If there has been a change, this routine 
then reflects that change in the MODM-IN register and checks the MODM- 
MASK register to see if the host wants to be interrupted. If the 
bit in MODM-MASK representing the changed line is on, the card will 
then send an INPUT MODEM LINE CHANGE INTERRUPT to the host. The three 
Aes that this routine deals with are the DCD, CTS, and SYNC lines 
jfflrSIO Channel A which are used as modem lines RR, CS, and DM. 

INTERNAL DESCRIPTION: 

Rotate B reg (SIO READ REG.O) right 2 bits (align with MODM-IN) 

isolate DCD, SYNC, and CTS bits 

If bits = RR, CS, and DM bits in MODM-IN then Exit 

else 

MODM-IN (bits 1-3) :=READ REG. bits 
If MODM-IN. AND. MODM-MSK > then 
grab semaphore 

send Input Modem Line Change Interrupt to host 
release semaphore 

UPON ENTRY: B Reg - value of Read Reg in SIO CH. A 

UPON EXIT: no relevant register values 

CALLED BY: EX-0, INIT 
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CALLS ROUTINES: none 

MDM1-SUB - MODEM LINE CHANGE SUBROUTINE FOR IC LINE 

EXTERNAL DESCRIPTION: 

The purpose of this subroutine is to determine whether or not the DCD 
line in SIO channel B changed. This modem line represents the IC 
line. The SIO Read Register is read to determine the current status 
of the DCD line. This bit is then compared with bit of the MODM-IN 
register to see if there has been a change. If so, bit in MODM-IN is 
set to reflect the change and the MODM-MASK register is checked to see 
if the host wants an interrupt for the change. As with MDM1-SUB, if 
the bit in MODM-MASK representing the IC line (bit 0) is on, the card 
will then send an INPUT MODEM LINE CHANGE INTERRUPT to the host. 

INTERNAL DESCRIPTION: 

Compare DCD bit with IC bit in MODM-IN register 
If not equal then 

Change IC bit in MODM-IN register to match DCD bit 

Retrieve MODM-MASK 

If MODM-MASK (IC bit) set then send host an Input Modem 
Line Change interrupt 

UPON ENTRY: B Reg - value of Read Reg in SIO CH. A 

UPON EXIT: no relevant register values 

CALLED BY: EX-1, INIT 

CALLED ROUTINES: none 

ISRPT0,ISRPT1,ISRPT2,ISRPT3 - PORT SPECIFIC INTERRUPT ROUTINES 

EXTERNAL DESCRIPTION: 

These four routines will be documented together as they are virtually 
identical except for variable names. These four routines (one for each 
of the four ports) identify which port specific interrupt the host is 
sending from the bits in ISR-TAB. The interrupt can be either a 
Configuration Change interrupt, a TX Buffer Not Empty interrupt, or 
a Send Break interrupt (or any combination of the three) . These 
routines are called by HSTINT. 

The purpose of the Configuration Change interrupt is to reconfigure the 
line characteristics of the SIO and change the baud rate as desired by 
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the host. The CONFG register contains the parity type, the number of 
stop bits, and the number of bits per character. This register is set 

»the host and accessed in this routine by the card. The BD register 
the index to the BD table which contain the CTC Channel Control Word 
and prescale value for the baud rate requested. 

The TX Buffer Not Empty interrupt is a message from the host to restart 
the transmitter because there are now characters in the Transmit buffer 
to send out. This routine merely retrieves a character from the buffer 
and sends it to the SIO. 

The Send Break interrupt is fully contained in a subroutine called 
SNDBRK which will be described in its own section later in this 
document . 



INTERNAL DESCRIPTION: 

Retrieve bit from TMP-TAB 
If bit = 1 then 



(bit determined Confg. interrupt) 



Call HSTCON (routine does 1st part of Confg.) 

Load SIO Write Reg. 4 with new value 
Load SIO Write Reg. 5 with new value 
Load SIO Write Reg. 3 with new value 
Get contents of BD register 
Multiply by 2 
Add to BD Table base 
^Retrieve CTC Channel Control Word from BD-TAB 
Iftend to CTC 
^*Inc pointer 
Retrieve CTC Time Constant value 
Send to CTC 
Retrieve remaining bits from CMND-TAB 

If bit 1=1 then (bit for TX Buffer Not Empty ISR) 

If Transmitter flag off then 

Retrieve Head Pointer Index for TX Buffer 
Retrieve Tail Pointer Index for TX Buffer 
If Head <> Tail then 

Obtain effective TX Buffer address 

Retrieve character 

Send character to UART (SIO) 



Increment index 

Turn on Transmitter flag 
If bit 2=1 then 

Call SEND BREAK routine 
Return to calling routine 



(bit for Send Break interrupt) 
(calling routine is HSTINT) 



UPON ENTRY: 



REGISTER D - contains the TMPTAB bits which were retrieved 
from CMND-TAB 
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REGISTER E - DO NOT USE! The HSTCON routine uses this 

register to hold the contents of the COMMAND 
register. Remember, there can be more than 
one interrupt at a time sent. 

UPON EXIT: REGISTER E - Unchanged 

CALLED BY: HSTINT 

CALLS ROUTINES: HSTCON, SNDBRK 

HSTCON - SUBROUTINES FOR PORT SPECIFIC INTERRUPT ROUTINES 

EXTERNAL DESCRIPTION: 

This subroutine is the first part of the processing of a port specific 
Configuration Data Change Interrupt from the host. This routine basic- 
ally changes the order of the bits read from the CONFG register to the 
corresponding bit patterns needed to program the SIO write registers. 
The basic algorithm of this routine is to start with the value of CONFG 
and change first the parity bits, then the stop bits, then the bits 
per character, to match the corresponding patterns needed to program 
the SIO write registers correctly. At the end of this routine, the 
A register will contain the three pieces of information in from the 
CONFG register with the bits changed so they match the bit patterns 
needed by the SIO write registers to make the actual configuration 
changes. However, this routine does not include actually programming 
the SIO write registers. That is done in the calling routine (as 
explained in the section on ISRPTO, ISRPT1, ISRPT2, ISRPT3 - PORT 
SPECIFIC INTERRUPT ROUTINES) . This routine does include programming 
the mask value in the BITS-MSK register which will be used to strip 
parity bits off of Receive characters. This mask is based on the 
number of Receive bits per character requested by the change. (This 

algorithm is described in the section entitled Explanation of Common 
Algorithms) 

INTERNAL DESCRIPTION: 

If bit 1 in CONFG=0 then bit 0=1 (even parity; set parity enable for WR4) 
Rotate 2 bits right (stop bits pattern same if add 1) 

Increment A register (contains original value of CONFG) 

Rotate back 2 bits left 

Swap bits 4 & 5 (now matches bits per char in WR3 & 5) 

If 8 bits per character 

BITS-MSK=FF 
If 7 bits per character 

BITS-MSK=7F 
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If 6 bits per character 

BITS-MSK=3F 
#J 5 bits per character 
7k:ts-msk=if 

UPON ENTRY: A Reg - contains the CONFG register value 

D reg - used by calling routine - DO NOT USE 

E reg - used by calling routine - DO NOT USE 

UPON EXIT: A Reg - contains the altered value of CONFG reg. 
D reg - unaltered 
E reg - unaltered 

CALLED BY: ISRPTO, ISRPT1, ISRPT2 , ISRPT3 

CALLS ROUTINES: none 

SNDBRK - SEND BREAK SUBROUTINE 

EXTERNAL DESCRIPTION: 

This routine is used when the host sends the card a Send Break interrupt 
A break interrupt can be notifying the card to either begin or end a 
break. The card determines which by checking the Break bit in WR5. If 
the Break bit (bit 4)=0 then this is a start of break. If bit 4=1 then 
this is a signal to end a break. 

]^'ERNAL DESCRIPTION: 

If Break bit = then 

Set WR5 bit 4 in WR5 variable 

Send new WR5 value to SIO 
Else 

Reset WR5 bit 4 in WR5 variable 

Send new WR5 value to SIO 

UPON ENTRY: D reg - Used in the calling routine - DO NOT ALTER 
E reg - Used in the calling routine - DO NOT ALTER 

UPON EXIT: D reg unaltered 
E reg unaltered 

CALLED BY: ISRPTO, ISRPT1, ISRPT2, ISRPT3 

CALLS ROUTINES: none 

MODOUT - MODEM OUTPUT LINE CHANGE ROUTINE 
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EXTERNAL DESCRIPTION: 

This routine is basically a subroutine called by the Host interrupt 
routine when a Modem Ouput Change is sent by the host. The purpose 
of this routine is to set the modem output lines to match the bit 
pattern in the MODM-OUT register. Bit represents the RS line. Bit 
represents the TR line and bit 2 represents the SR line. As there is 
no record of which line is different, this routine sets all the lines 
as indicated by the MODM-OUT register. 

INTERNAL DESCRIPTION: 

If bit 0=1 then set RTS bit in WR5-0 

Else reset RTS bit in WR5-0 (sets or resets RS line) 

Send new WR5 value to SIO 
If bit 1=1 then set DTR bit in WR5-0 

Else reset DTR bit in WR5-0 
Send new WR5 value to SIO (sets or resets TR line) 

If bit 2=1 then set RTS bit in WR5-1 

Else reset RTS bit in WR5-1 
Send new WR5 value to SIO (sets or resets SR line) 

UPON ENTRY: E Reg - used in the calling routine - DO NOT ALTER 

UPON EXIT: E Reg unaltered 

CALLED BY: HSTINT 

CALLS ROUTINES: none although returns to HSTINT by a jump 

TMROFF - TIMER ON/OFF ROUTINE 

EXTERNAL DESCRIPTION: 

This routine is part of the Host interrupt Timer On/Off interrupt 
service routine. The purpose of this routine is to either turn the 
16 millisecond Receive buffer timer on or off. A flag is used to 
determine whether it is already on or off. If the flag is off, this 
routine turns the timer on and if the flag is on this routine turns 
the timer off. The flag is changed accordingly at the end of the 
routine. 

INTERNAL DESCRIPTION: 

Retrieve the Timer flag 

If Timer flag=l (timer is already on) 

Turn off CTC timer 
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Timer flag=0 (update timer flag) 

If Timer flag=0 (timer is off) 

^•tetrieve CTC Channel Control Word 
Igfend to CTC 

Retrieve Time Constant Register value 

Send to CTC (restarts timer) 

Timer flag=l (update timer flag) 

Return to caller 

UPON ENTRY: E Reg - used in the calling routine - DO NOT ALTER 

UPON EXIT: E Reg Unaltered 

CALLED BY: HSTINT 

CALLS ROUTINES: none although returns to HSTINT by jump 

SELF TEST 

The purpose of this chapter is to give a detailed explanation of the 
Self Test firmware. Self Test is that portion of code which attempts 
to functionally test all accessible hardware on the board. It includes 
a ROM test, a RAM test, a CTC test, and a SIO test. Self Test is 
approximately 2K bytes long and resides in the EPROM beginning at 
address 0000. There are two ways that Self Test can be invoked: it 

a I automatically invoked during power up when the Auto Reset line on 
e Z-80 is pulled and it may be invoked by a Self Test interrupt from 
the host. 

The following sections will contain a detailed explanation of each of 
the component tests in the Self Test. I f m using the term "component" 
rather loosely here to refer piece of hardware that I can separately 
test. The "components" are actually tested in the same order in which 
they will be explained in this document. 

SELF TEST INITIALIZATION 

The following tasks are done before the any of the hardware component 
tests: 

1. Interrupts are disabled, the stack pointer is initialized, and 
the reset bit in the Reset/I. D. register is cleared. The reason for 
the latter is that the state of this bit is indeterminate after power 
up and must be cleared for a Soft Reset to be issued (which is tested 
in Self Test) . 
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2. The CTC and SIO channels are all reset. This is really precautionary. 
They should all have been reset automatically during the power up. 

3. The IX register which is used to identify the type of failure (in 
case Self Test fails) is set to zero. As each test is performed, the 
IX register is incremented. The value it contains upon Self Test 
failure identifies which test it failed on. 

4. The COMMAND register is first set to zero, then read back into 
the A register. This is to insure that it is both cleared and that 
the interrupt line is reset (remember that a write from the host to 

the COMMAND register sends an interrupt to the card and a read from 
the card to the COMMAND register clears it. Also, the state of the 
COMMAND register is indeterminate after power up so this puts it in 
a known state) . 

NOTE: The COMMAND register cannot really be tested in Self Test 
because, as explained above, the host must write to it to 
generate an interrupt. 

RESERVED ADDRESSES (038H, 6 6H , INTERRUPT VECTORS) 

There are a few reserved locations in the first part of the Self Test. 
These are addresses that have (or might have) fixed significance in 
certain circumstances. There are only two that are fixed; addresses 
038H and 066H. The interrupt vectors for the CTC test are placed 
in between (addresses 04 8H to 057H) simply because there was room 
here and the Self Test jumps around this section of addresses (035H to 
06DH) . 

Address 038H - This address is the one triggered if the Z-80 ever gets 
the value OFFH as an opcode. If the program ever jumps outside the 

legal address space, ie physical memory, the value the Z-80 gets 
will most likely be OFFH (tri-state line assuming high) in which 
case this will be the address which is jumped to. The routine 
at this address adds 10 OH to whatever is in the IX register to 
identify the error and then jumps to the Self Test failure section 
of code. 

Address 066H - This address is the one triggered when the NMI (non 
maskable interrupt) line on the Z-80 is pulled. Setting bit 7 
in the Reset/I. D. register causes an NMI. The code at this 
location disables interrupts, calls the INIT routine, reinables 
interrupts and returns from the NMI. Recall that setting bit 7 
in the Reset/I. D. register is called a Soft Reset. When a Soft 
Reset is issued by the host, a jump is made to the INIT routine 
and THERE IS NO RETURN FROM THE NMI. The Init routine jumps over 
the return in this circumstance. However, to test the NMI, the 
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Self Test also issues an Soft Reset. In this case, due to a 
value set in a test variable, the init routine returns control 
back to the calling routine and the RETN instruction at location 
06BH is executed. 

IKT_COND AND INTERRUPT REGISTER TEST 

The INT_COND and INTERRUPT registers are tested together because the 
function of INT_COND register impacts the INTERRUPT register. In 
other words, they are intertwined in some respects. The INTERRUPT 
test is split into two parts in the firmware separated by the NMI 
and RESET/I. D. register test. The reason for this is that the first, 
part of the test writes to the INT_COND register which causes the IRQ 
(bit 6) bit to be set in the INTERRUPT register. Keeping in mind that 
we do not want to send an interrupt to the host, the only way to clear 
this is either a read from the host or a reset. Since the NMI test 
causes a Soft Reset, this bit is cleared. Then the second part of the 
INTERRUPT register test is performed. 

TEST OUTLINE 

Increment IX 

Clear bit 7 (IEN) of the INTERRUPT register 

Read INTERRUPT register 

If bit 7 <> then jump to Self Test error routine 

^^.te to the INT_COND register (should set the IRQ bit in INTERRUPT reg) 
Read the INTERRUPT register 

Should be IEN=0 (bit 7) and IRQ=1 (bit 6) . If not, jump to the 
Self Test error routine 

NOTE: AT THIS POINT THE TEST IS SEPARATED BY THE NMI & RESET/I. D. TEST 

Set bit 7 of the INTERRUPT register 

Read INTERRUPT register 

Should be IEN«1, IRQ=0. If not, jump to the Self Test error routine 

Clear the INTERRUPT register 
Read the INTERRUPT register 
Should be IEN=0, IRQ=0 

NMX AND RESET/I. D. TEST 

The first portion of this test masks off the upper 3 bits of the 
Reset/I. D. register and tests the remaining 5 bits for correct card 
I.D. The correct card I.D. for the FORDYCE card is 5. The second 
portion of this code causes a Soft Reset to the Z-80 and tests whether 
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an NMI is actually caused. A value (SVAL) is written to a test 
register before the NMI is executed. If the NMI executes correctly, 
control will be passed to the init routine where the value in the test 
register will be changed to match EVAL. The SVAL and EVAL matching 
algorithm works in the following manner: if the init routine finds the 
value SVAL in the test register, it changes the test register value to 
EVAL and returns to the calling routine. When the NMI test has regained 
control, it verifies that the routine actually executed the NMI by 
identifying the value EVAL in the test register which was set by the 
init routine. If the init routine is called and the test register 
does not have the value, SVAL in the test register, the init routine 
executes the rest of its routine and does not return to the caller. 

TEST OUTLINE 

Increment IX 

Retrieve value in RESET/I. D. register 

Mask off bit 7 (bits 5 and 6 are hardwired to 0) 

If lower bits <> 5 then jump to Self Test error routine 

Load Test with Sval 

Cause a Z-80 reset by setting bit 7 in the RESET/I. D. register 

Wait for return from interrupt 

Retrieve value in Test 

Compare with EVAL. If different, jump to Self Test error routine 

Clear Test register 

SEMAPHORE REGISTER TEST 

There are basically three parts to the Semaphore register test. The 
first part puts the register into a known state by writing to it and 
testing that the write set it to zero. The second part of the test 
checks the Semaphore register again to see if the read (which was 
performed to check the write results) set it. The third part of the 
test is another write to the Semaphore register and a check to see if 
bit 7 went from a 1 to correctly. The Semaphore register is left 
set (bit 7=1) by the last read. It will be cleared in the Initialize 
routine. The reason for this is added protection against the host 
attempting to send or receive an interrupt before the card has completed 
its Self Test and Initialize routines. 

NOTE: Remember that if the Semaphore register is initially reset 

(bit 7=0) , reading it will return the value with bit 7=0, 
but the act of reading the Semaphore register will have 
set bit 7 to 1. A second read would confirm this. 

TEST OUTLINE 
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Increment IX 

■Yite to the Semaphore register 

Read the Semaphore register 

If bit 7=1 then jump to Self Test error routine 

Read the Semaphore register 

If bit 7=0 then jump to Self Test error routine 

Write to the Semaphore register 

Read the Semaphore register 

If bit 7=1 then jump to Self Test error routine 

ROM TEST 

This test performs a CRC using the polynomial X**16+X**2+X+l and 
checks it against a previously calculated CRC already stored in 
the upper two bytes of ROM. This check character is generated by 
the program CRC4K which is run on the object code before it is 
burned into the ROM. The check character is stored with the low 
order byte first. 

RAM TEST 

yhis performs a test of the static RAM for stuck-at-0 and stuck-at-1 
iptilts and address decoder failures. The test basically consists of 
four stages. In the first, a pattern is written to every location in 
RAM. The second pass consists of reading each location and checking 
the value read against the pattern written. An alternate pattern is 
then written to every location. The final is pass is a second read 
of each location, checking each value read against the second pattern 
written. 



TEST OUTLINE 

Increment IX 

Write 01010101 to each RAM location 
1=0 

While (1=1+1) <= end of RAM Do 
Begin 

If RAM(I) <> 01010101 then jump to Self Test error routine 
RAM(I)=10101010 
End 

I=Index of last RAM location 
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While (1=1-1) >= Beginning of RAM Do 
Begin 

If RAM(I) <> 10101010 then jump to Self Test error routine 
RAM(I) = 01010101 
End 
Reset Stack Pointer with Stack Address 

CTC TEST 

There are basically two CTC tests, both of which are executed on all 
four channels of both CTC's. The first test checks the downcounting 
ability of the CTC channels by setting the CTC time constant to a known 
value, then checking whether it downcounts correctly within a known time 
period. The second test checks the timer ability and interrupt priority 
each of the CTC channels by setting them up in sequence and letting them 
downcount to zero, cause an interrupt, and jump to the test interrupt 
vector, altering the vector for the next interrupt expected. This is a 
very tricky test with strict timing constraints. For further explanation 
see below. 

The two tests are performed on the two CTC's in the following order: 
Algorithm 1 (the first test) is performed on both CTC first, then 
Algorithm 2. 

TEST OUTLINE FOR ALGORITHM #1 - This test is done on 1 CTC at a time 

Increment IX 
Reset all CTC channels 

Set up interrupt vectors in RAM with the data in the ROM test interrupt 
vectors for the CTC - 8 locations with a jump instruction to a CTC 

error routine (in the first test, if the downcounter counts to zero, 
its an error and the CTC error routine will call the Self Test error 
routine) . 

Set the Interrupt mode to 2 

Enable interrupts 

NOTE: For the first part of this test, all channels must be read before 
256 T states have elapsed from the time each channel is started 
- i.e. before the time constant register downcounts. 

For each channel ... 

Load Channel Control Word (interrupt enabled, timer mode, prescale 

value = 256) 
Load Time Constant Register = 

For each channel . . . 

Read Time Constant Register 

If <> then jump to Self Test error 
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UPTE: For the second part of this test, all channels must be read 
after 256 T states but before 512 T states from the time the 

channel is started. Remember that the time constant register 
was originally set to zero, so when it downcounts (after 256T 
states) it will be 255. 



... 



For each channel 

Read Time Constant Register 

If <> 255 then jump to Self Test error 

Execute this test a second time (without reseting the timing) 

TEST OUTLINE - ALGORITHM #2 

NOTE: Remember that Algorithm #1 set the jump-to-error-routine 
instructions in RAM locations and passed the RAM address 
to the CTC as interrupt vector addresses. In the following 
test, each CTC channel is set to interrupt in a controlled 
sequence. The sequence should be channel 2, followed by 
channel 0, then channel 1, finally channel 3 (interrupt 
priority also determines sequence) . The sequence is verified 
by giving a different interrupt vector address to the channel 
which is expected to interrupt. This new vector address points 

to a routine which changes the interrupt vector address of the 
second channel which is supposed to interrupt. In other words, 
if the channels interrupt in the right sequence the interrupt 
does not jump them to the error routine originally pointed to. 
Also, each alternate interrupt routine sets a bit in the B 
register which verifies that the routines were actually executed, 

Increment IX 

Load all CTC channels - interrupt enabled, prescale value ■ 16, timer 

mode 
Load address of second interrupt routine into RAM CTC vector location 
Load Time Constant for each channel (these are carefully calculated 

as is the order that the channels are triggered to insure the 

correct interrupt sequence. 
Enable interrupts 
Wait (2 NOP instructions) 
Disable interrupts 
If B register <> 0F0H then call Self Test error routines 

SECOND INTERRUPT ROUTINE EXPLANATION 

Reload vector address for this channel with old error routine address 
Reset channel 
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Set bit in B register 

Load RAM vector address for next expected channel with address of 

the second interrupt routine for that channel 
Enable interrupts 
Return from interrupt 

SIO TEST 

This test basically performs loopbacks on the transmit, receive, and 
modem lines of all of the SIO ports. The test has three parts. The 
first part tests to see whether there are loopback hoods on the ports. 
For channels 1-3 the CTS line is tested. If set (equals ' 1'), a test 
hood is present. For channel 0, data is looped from the IC line and 
read back in on the SR line. If the same pattern is read that was 
sent, a test hood is present on this channel too. Whenever a test 
hood is detected present, a bit is set in the E 1 register. Bits 0-3 
in E* represent channels 0-3. A • 1* in any of these bit positions 
means that a hood is attached to the channel represented by that bit. 

The second part of the test will perform an "internal" loopback which 
disables the frontplane drivers and sends data out the SIO and back 
again. Internal loopback is determined by the status of the RTS line 
on ch. B in SIO #1. If RTS=1, the frontplane drivers are disabled and 
the TX lines loop back into the RX lines. 

The final part of the SIO test depends on whether or not there are any 
test hoods on any of the ports. The frontplane drivers are reenabled 
and the E' register is tested to determine which (if any) ports have a 
loopback hood attached to them. Data is sent out the channels with 
loopback hoods attached and read back in on the RX lines. It should be 
noted that the loopback tests use the "poll" mode of the SIO. In other 
words, the firmware sends data out the TX lines on each channel and 
loops on the RX Character Available bit in Read Register of the SIO. 
A deadman timer of approx. 8 milliseconds is set initially to insure 
that the code does not loop forever in case there is an error. 

External loopback on channel is a little different from the rest of 
the channels because it is a modem port. The modem lines which are 
used are physically located on both channels of SIO #0 (see the firm- 
ware ERS for the designation of the SIO output lines) because of the 

number needed. Logically, the following loopbacks are performed if 
a hood is present on channel 0: 



OUTPUT LINE to INPUT LINE 
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TX RX 

RS (CH. A - RTS) CS (CH. A - CTS) 

TR (CH. A - DTR) DM (CH. A - SYNC) 

SR (CH. B - RTS) RR (CH. A - DCD) 

NOTE: 1. All of the modem lines for port are in SIO # 0. 

2. The IC & SR lines are also connected to each other in the test 
hood. However, since they were used to detect the presence 
of the test hood in the first place, they are not tested 
again. 

TEST OUTLINE 

Reset all CTC channels and program for 19. 2K baud 
Set up interrupt vector for deadman timer on CTC #1, CH. 2 
Program all SIO channels - 8 bit, 1 stop bit, no parity 
Hood detect for channel 0-3. Set bit in E* register if 

hood is present. 
Internal loopback 

Start deadman timer 
Enable interrupts 
For 1=1 to 8 do 

Wait until TX buffer empty 

If RX Character Available bit set (Read Reg 0) then jump to 

Self Test error 
Send OAAH on TX line 

Wait until RX Character Available bit set 
Read in character 

If <> character sent go to Self Test error routine 
Complement test character (now 055H) 

External Loopback 

For each port - test corresponding bit in E 1 register to see if 

hood is present. 
If hood is present, loop data from input line to output line. If 
input data does not = output data, jump to Self Test failure routine. 

NOTE: There are two subroutines used to loop back data, LOOP-TEST and 
SIO-TEST. LOOP-TEST is used for loopbacks in the hood detect section 
and the modem line loopback. It turns on and off the designated modem 
line in the designated SIO channel according to a fixed pattern and 
matches the input modem line signal with the output signal. SIO-TEST 
on the other hand sends a character out the SIO transmit line as 
described above in the Internal Loopback explanation. 

SUCCESSFUL TERMINATION OF SELF TEST 
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Upon successful completion of Self Test, the following will occur: 

1. The ST-COND register will contain the value EO (hex) to indicate 
that Self Test passed. 

2. The card will send the host a Self Test Complete interrupt. 

3. The card will execute the initialization routine 

UNSUCCESSFUL TERMINATION OF SELF TEST 

Upon unsuccessful termination of self -test, the following will occur: 

1. The ST-COND register receives the value in the IX register. This 
value indicates where the test failed. 

2. The system console will display an error message identifying the 
card by ID number and select code, and specify a number which indicates 
the type of failure (the value in the ST-COND register) . 

3. The card sends the host a Self Test Complete interrupt 

4. The card will execute (or attempt to execute) the initialization 
routine. 

VALUE OF ST-COND REGISTER UPON SELF TEST FAILURE 



As stated above, when Self Test fails, a number representing the section 
of Self Test that failed is written to the ST-COND register. The fol- 
lowing list defines each of these possible numbers. In the event of 
Self Test failure, the host can read the ST-COND register to determine 
where the failure occurred. 

The ST-COND values are defined as follows: 



ST-COND = 1 
= 2 
=* 3 
■■ 4 
= 5 
« 6 
= 7 
= 8 
= 9 
=10 



INT-COND/INTERRUPT register test 

NMI/RESET I.D. register test 

Semaphore register test 

ROM Test 

RAM Test 

CTC Test - ALG. 1 

CTC Test - ALG. 2 

CTC 1 Test - ALG. 1 

CTC 1 Test - ALG. 2 

SIO CH A Test (Internal loopback) 



A-98642-90014-1 
PAGE 50 of 51 



11: 


SIO 





CH 


B 


Test 


12: 


SIO 


1 


CH 


A 


Test 


13: 


SIO 


1 


CH 


B 


Test 


14: 


SIO 





CH 


A 


Test 


15: 


SIO 





CH 


B 


Test 


16: 


SIO 


1 


CH 


A 


Test 


17: 


SIO 


1 


CH 


B 


Test 



(Internal loopback) 

(Internal loopback) 

(Internal loopback) 

(with diag hood - external loopback) 

(with diag hood - external loopback) 

(with test hood - external loopback) 

(with test hood - external loopback) 
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Notes on 98 642 Firmware revisions 

The Firmware source code is the latest revision. It is the code 
contained in the EPROM marked 98642-81004. It is very slightly different 
from the revision marked 98642-81003. The differences are noted and 
commented in the source code listing and the IMS. 



£>Sl 



v. 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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54 
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<870902.0106> 
SOURCE: &STV1 
PRGMR: EAP 

HP-OIO 98642A 4-CHANNEL MUX SELF-TEST 

• (C) COPYRIGHT HEWLETT- PACKARD COMPANY 1982. ALL RIGHTS » 
« RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * 

* REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT « 
« THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COflPANY. « 

t****»*« **»**»* »****«*»******»*****»**»****«»******»***»**«««*» 

LIST B.O.S 
NLIST M,T 

NAME MX4ST 

PUBLIC MX4ST,CTC_ERR0 
EXTRN INI T,ST_COND JEST 

HP-DIO 4-CHANNEL MUX CARD SELF-TEST 

The following is the self-test code for the MUX Card. It performs 
tests on the following major components and data paths on the card: 

1. ROM 

2. RAM 

3. CTC 

4. SIO 

Self-test is invoked at EVERY card reset (at entry MX4ST). 

Upon successful completion, the following state of the card 
will result: 
1. Z80 interrupts are enabled. 

3. SIO is reset 

4. CTC is reset 

5. Interrupt mode ■ 2 * 

Upon unsuccessful completion, Self-Test will put the value of the 
IX register into the ST COND register. The value in the IX register 
indicates where the SelT Test failed (see the IX values below for 
their interpretation). After saving the IX register in the ST_C0ND 
register, A Self Test Done interrupt is sent to the host, and the 
self test executes (or attempts to) the Initialization routine. In 
other words, the card is left in basically the same state upon Self 
Test failure that it is upon a successful completion of Self Test. 

'IX' values are defined as follows: 

IX ■ 1: INT_C0ND/INTERRUPT register Test 



ERR LINE ADDR Bl B2 B3 B4 

5S 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 



280 ASSEMBLER VER 3.0MR PAGE 

« 2: NMI/RESET 1.0. register Test 

* 3: Semaphore Test 

* 4: ROM Test 
» 5: RAM Test 

* 6: CTC #0 Test - ALG. #1 
- 7: CTC #0 Test - RLG. #2 
« 8: CTC tl Test - ALG. #1 

* 9: CTC #1 Test - ALG. #2 
=10: SIO #0 CH A Test (Internal loopback) 
■11: SIO #0 CH 8 Test (Internal loopback 
•12: SIO #1 CH A Test (Internal loopback 
»13: SIO #1 CH B Test (Internal loopback] 
«14: SIO #0 CH A Test (with diag hood - external loopback) 
=15: SIO #0 CH B Test (with diag hood - external loopback) 
«16: SIO #1 CH A Test (with diag hood - external loopback) 
*17: SIO #1 CH B Test (with diag hood - external loopback) 
*lxx: Jumped outside of address space 

REGISTER USAGE DESCRIPTION 

REG E': First four bits are used to indicate whether 
or not test hoods are present on each of the 
4 ports. If the bit corresponding to the 
port is set, a test hood is present on that 
port. 

REVISION HISTORY: 

BUG FIX - 06/13/85 - THE CARD WAS UNABLE TO RECEIVE INTERRUPTS 
AFTER SELF TEST HAD FAILED IF THE ERROR UAS BECAUSE A OEADflAN 
TIMER TIMED OUT (I.E. SIO TEST EXTERNAL LOOPBACK). THE REASON 
UAS THAT THE END OF THE DEADtlAN TIMER INTERRUPT UAS A JUMP TO 
ST ERR UHICH NEVER DID A RETI . THE PROBLEM UAS HANDLED BY 
INCLUOING THE FOLLOUING INSTRUCTIONS IN THE ST_ERR ROUTINE: 

LD BC.INIT 
PUSH BC 
RETI 

THE PUSH INSTRUCTION IS BECAUSE SELF TEST FAILURES UHICH DO 
NOT INVOLVE ISR'S (LIKE THE SEMAPHORE TEST) STILL JUMP TO 
THE ST ERR ROUTINE AND AN EXTRA RETI INSTRUCTION UOULD POP 
THE STffCK. 

***************** *************** **X* ***************************** 

Bug Fix 27-July-1988 by Randy Stout - RMO Production Engineering 
After isolating an intermittent interrupt, Zilog admitted having 
a problem with the CTC. Apparently there is a race condition 
between the bit that enables interrupts and the bit that resets 
the CTC. If the interrupt is enables before the reset, a pending 
interrupt causes the CTC to ivoke the ISR. 

This fix alters the original version by changing beginning of the 
ASYNC SIO TEST to set only channels and 1 of CTC1 as baud rate 
generators. Channel 2 state is left from the end of the CTC TEST 



ERR LINE ADDR Bl B2 B3 B4 



280 ASSEMBLER VER 3.0MR 



PAGE 



109 
110 



; routine. 

******************************************************************** 
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113 
114 
US 
116 
117 



MUX SELF-TEST SYSTEM EQUATES 

* 
SYSTEM EQUATES « 

* 



PAGE 



119 



121 


0000 


122 


1FFF 


123 


0002 


12S 




127 


C002 


128 


07FE 


129 


0007 


130 


C800 


132 




134 


0070 


135 


0071 


136 


0072 


137 


0073 


138 


OOBO 


139 


00B1 


140 


00B2 


141 


00B3 


143 


0000 


144 


0001 


145 


0002 


146 


0003 


147 


OOEO 


148 


00E1 


149 


00E2 


150 


00E3 



; 


ROM 


EQUATES 








ROM BEG 


EQU 





Add 


■ of beginning of ROM 




ROM~END 


EQU 


1FFFH 


Add 


' of last byte of ROM 




ROM^SEG 


EQU 


2 


Number of 4K segments of ROM 




; 


RAM 


EQUATES 








RAM BEG 


EQU 


OC002H 


Add 


■ of beginning of RAM 
of bytes in RAM 




RAM'S I 2 


EQU 


0C7FFH-RAM BEG 


♦ 1 # 




RAM'SEG 


EQU 


RAM SI 2/255 


# of 256 bytes segments in RAM 


STKlADDR 


EQU 


0C80~0H 


Stack address 




; 


I/O 


EQUATES 








SIO AO 


EQU 


70H 


SIO 


#0 CHANNEL A OAT A 




SIO"*0~AC 


EQU 


71H 


SIO 


#0 CHANNEL A CONTROL 




SIO"0~BD 


EQU 


72H 


SIO 


#0 CHANNEL B DATA 




SIO~0~BC 


EQU 


73H 


SIO 


#0 CHANNEL B CONTROL 




SIO~1"AO 


EQU 


OBOH 


SIO 


#1 CHANNEL A DATA 




SI0~1"AC 


EQU 


0B1H 


SIO 


#1 CHANNEL A CONTROL 




SIO 1~B0 


EQU 


0B2H 


SIO 


#1 CHANNEL B DATA 




sioioc 


EQU 


0B3H 


SIO 


•1 CHANNEL B CONTROL 




CTC CO 


EQU 


ODOH 


CTC 


#0 CH PORT BAUD RATE 


GENERATOR 


CTC~0~C1 


EQU 


001H 


CTC 


«0 CH 1 PORT 1 BAUD RATE 


GENERATOR 


CTC~0~C2 


EQU 


0D2H 


CTC 


#0 CH 2 UNUSED 




CTC~0"C3 


EQU 


003H 


CTC 


#0 CH 3 UNUSED 




CTC~1~C0 


EQU 


OEOH 


CTC 


#1 CH PORT 2 BAUD RATE 


GENERATOR 


CTC 1 CI 


EQU 


0E1H 


CTC 


#1 CH t PORT 3 BAUD RATE 


GENERATOR 


CTC"1"C2 


EQU 


0E2H 


CTC 


#1 CH 2 INTERNAL TIMER 




CTC~1"C3 


EQU 


0E3H 


CTC 


«1 CH 3 UNUSED 





153 



;MISCELLANEOUS EQUATES 
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155 8000 

156 8001 

157 8002 

158 C001 

159 COOO 

160 OOEO 

161 0010 

162 0034 

163 0043 

164 C010 

165 C030 
166 



MUX SELF-TEST SYSTEM EQUATES 



RESET EQU 8000H 
INT REG EQU 800 1H 
SEM~REG EQU 8002H 
COM~REG EQU OC001H 
INT~COND EQU OCOOOH 
PAS? EQU OEOH 
INT CODE EQU 10H 
SVAr EQU 34H 
EVAL EQU 43H 
CTC VO EQU 0C010H 
CTC~V1 EQU 0C030H 



PAGE 5 

ADDRESS OF HU RESET REGISTER 

ADDRESS OF HU INTERRUPT REGISTER 

ADDRESS OF SEMAPHORE REGISTER 

AOORESS OF COMMAND REGISTER 

ADDRESS OF INT CONO REGISTER 

VALUE INDICATING ST PASSED - ST CONO REG. 

VALUE TO INT. HOST THAT ST. DONE" 

USED TO DETERMINE NMI ORIGIN-BEG. VALUE 

SAME AS ABOVE EXCEPT THIS IS END VALUE 

BEG. CTC VECTOR LOCATION IN RAM - CTC 

BEG. CTC VECTOR LOCATION IN RAM - CTC 1 
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168 














CSEG 




169 


0000 








MX4ST: 






170 


0000 


F3 










DI 




171 


0001 


AF 










XOR ft 


CLEAR ft REGISTER 


172 


0002 


32 


00 


80 






LO (RESET). ft 
LD SP,STK_ADDR 


CLEAR RESET BIT IN RESET/I. 0. REG.- IT MAY 


173 


OOOS 


31 


00 


C8 






BE SET fiFTER POWER UP WHICH WOULD CftUSE 


174 
















THE Nfll TEST TO FAIL 


175 












. . . 


RESET ftLL CTC * SIO 


176 


















177 


0008 


06 


04 








LD B,4 


RESET ftLL CTC CHANNELS 


178 


OOOfl 


OE 


DO 








LO C.CTC CO 




179 


OOOC 


3E 


03 








LD ft, 3 




180 


OOOE 








MX_200 : 






181 


OOOE 


ED 


79 








OUT (C),A 
INC C 




182 


0010 


OC 












183 


0011 


10 


FB 








DJNZ MX_200 




185 


0013 


06 


04 








LO B,4 




186 


001S 


OE 


EO 








LO C,CTC_1_C0 




187 


0017 








MX_300 : 






188 


0017 


ED 


79 








OUT fC),fl 
INC C 




189 


0019 


OC 












190 


0010 


10 


FB 








DJNZ MX_300 




192 


001C 


06 


02 








LO B,2 


RESET ALL SIO CHANNELS 


193 


001E 


OE 


71 








LO C.SIO AC 




194 


0020 


3E 


18 








LD fl,18H 




195 


0022 








MX_400 : 






196 


0022 


ED 


79 








OUT fC),A 
INC C 




197 


0024 


OC 












198 


0025 


OC 










INC C 




199 


0026 


10 


Fft 








DJNZ MX_4O0 




201 


0028 


06 


02 








LD B.2 

LO C,SI0_1_AC 




202 


002ft 


OE 


Bl 










203 


002C 








r1X_500: 






204 


002C 


ED 


79 








OUT fC),A 
INC C 




205 


002E 


OC 












206 


002F 


OC 










INC C 




207 


0030 


10 


Fft 








DJNZ MX_SO0 




210 


0032 


C3 


6E 


00 


C 




JP DOIT 


Jump around the following stuff. 


211 


















212 


















213 














WARNING W 


ARNING WARNING 


ERR LINE 


ftDDR 


Bl 


B2 


B3 B4 
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214 


















215 














THE FOLLOWING ADDRESSES MUST ALIGN AS FOLLOW 


216 


















217 














38H LOOP SCANNING 


RAM 


218 


















219 














48H CTC SELF-TEST 


INTERRUPT VECTORS 


220 


















221 














66H NMI, JUMP TO 


INIT 


222 


















223 


















224 


0035 


FF 


FF 








DEFW OFFFFH 


SPACE FILLERS SO THAT THE FOLLOWING 


225 


0037 


FF 










DEFB OFFH 


ROUTINE UILL BEGIN AT 38H 


226 


0038 


F3 










DI 




227 


0039 


01 


00 


01 






LO BC.100H 


ADDING 100H TO WHATEVER IS IN IX AT 


228 


003C 


00 


09 








ADD IX.BC 


THIS TIME. IF SELF TEST ADDRESSES 


229 


003E 


C3 


BO 


04 


C 




JP ST ERR 


OUTSIDE PHYSICAL MEMORY, THE TRI-STATE 
LINE WILL USUALLY ASSUME HIGH. WILL 


230 


0041 


FF 










DEFB ffFFH 


231 


0042 


FF 


FF 








DEFW OFFFFH 


CAUSE A JUMP TO THIS ROUTINE 


232 


0044 


FF 


FF 








DEFW OFFFFH 




233 


0046 


FF 


FF 








DEFW OFFFFH 




234 


















235 












• - * 


CTC SELF-TEST INTERRUPT VECTOR TABLE 


236 

237 


0048 








i 


iTCITl: 






238 


0048 


F2 


02 




C 




DEFW CTC ERRO 




239 


004ft 


F2 


02 




C 




DEFW CTC~ERRO 




240 


004C 


F2 


02 




C 




DEFW CTC~ERRO 




241 


004E 


F2 


02 




C 




DEFW CTC ERRO 




242 


0050 


F2 


02 




c 




DEFW CTC~ERRO 




243 


0052 


F2 


02 




c 




DEFW CTC~ERRO 




244 


0054 


F2 


02 




C 




DEFW CTC~ERRO 




245 


00S6 


F2 


02 




C 




DEFW CTCIERRO 




246 


















247 


0058 


FF 


FF 








DEFW OFFFFH 


FILLERS - NMI ROUTINE MUST BE AT 066H 


248 


005ft 


FF 


FF 








DEFW OFFFFH 




249 


OOSC 


FF 


FF 








DEFW OFFFFH 




250 


005E 


FF 


FF 








DEFW OFFFFH 




251 


0060 


FF 


FF 








OEFW OFFFFH 




252 


















253 


















254 












. . . 


nmi 




255 


















256 


0062 


FF 


FF 








DEFW OFFFFH 




257 


0064 


FF 


FF 








DEFW OFFFFH 




258 


0066 


F3 










DI 




259 


0067 


CD 


00 


00 


E 




CALL INIT 


CALL THE INIT SUBROUTINE 


260 


006ft 


FB 










EI 




261 


006B 


ED 


45 








RETN 




262 


006D 


FF 










DEFB OFFH 




264 


006E 








1 


)0IT: 
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266 


006E 


DO 


21 00 00 


LD IX, 


INITIALIZE TEST COUNTER 


267 


0072 


D9 




EXX 




268 


0073 


01 


00 00 


LD BC,0 


INITIALIZE ALTERNATE REGISTER SET 


269 


0076 


11 


00 00 


LO DE,0 




270 


0079 


21 


00 00 


LD HL.O 




271 


007C 


D9 




EXX 




273 












274 










; . . . CLEAR THE COMMAND REGISTER 


275 










THEN READ TO SET 


IT 


276 














277 


0070 


AF 




XOR ft 


CLEAR A REGISTER 


278 


007E 


32 


01 CO 


LD (COM REG) .A 
LD fl,(CO"M_REG) 


SET COM REG TO ZERO - MAY NOT BE ALREADY 


279 


0081 


3A 


01 CO 


THIS IS~TO INSURE THAT INT. LINE IS HIGH 


281 












282 










INT_COND ANO INTERRUPT 


REGISTER TEST 


283 














284 










THIS TEST IS DIVIDED IN TWO PARTS. THE FIRST PART TESTS THE 


285 










IEN BIT (BIT 6) IN THE 


INTERRUPT REGISTER BY MAKING SURE THAT A 


286 










WRITE TO THE INT COND REGISTER SETS IT. HOWEVER, SINCE WE DO NOT 


287 










URNT TO ACTUALLY~SENO AN INTERRUPT TO THE HOST AND SINCE THE IRQ 


288 










8IT (BIT 7) ftLSO NEEOS TO BE TESTED, THE PORTION OF THE TEST THftT 
TESTS THE SETTING ANO RESETTING OF THE IRQ BIT IS PERFORMED AFTER 


289 










290 










THE NMI TEST. THIS IS 


BECAUSE THE NMI TEST GENERATES A SOFT RESET 


291 










TO THE CARD AND CAUSES 


THE IEN BIT TO BE CLEARED WHICH IS SOMETHING 


292 










I CAN'T DO FROM THE CARD SIDE. REMEMBER THftT HAVING THE IEN AND 


293 










IRQ BITS SET AT THE SAME TIME TRIGGERS AN INTERRUPT TO THE HOST. 


295 


0084 


DO 


23 


INC IX 




296 


0086 


flF 




XOR ft 


CLEAR BIT 7 OF THE STATUS REG. 


297 


0087 


32 


01 80 


LD (INT REG). ft 
LD fl.(lRT_REG) 
AND 80H 




298 


008A 


3A 


01 80 




299 


008D 


E6 


80 


MAKE SURE THAT BIT 7 (IEN) IS CLEARED 


300 


008F 


FE 


00 


CP 




301 


0091 


C2 


BO 04 


C JP N2,ST_ERR 




303 


0094 


3E 


80 


LD ft.80H 


GENERATE INTERRUPT TO HOST 


304 


0096 


32 


00 CO 


LD (INT C0ND),P 
LD A,(IRT_REG) 
AND OCOH 


BY WRITING TO THE INT_COND REG. 


305 
306 


0099 
009C 


3A 
E6 


01 80 
CO 


MASK OFF BITS 6 & 7 IN STAT REG. 


307 


009E 


FE 


40 


CP 40H 


SHOULD BE IEN=0, IRQ*1 


308 


OOAO 


C2 


BO 04 


C JP N2,ST_ERR 




310 








1 
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311 








; NMI ANO RESET/I. D. REGISTER TEST 


312 














313 










THE FIRST PORTION OF THIS TEST MASKS OFF THE UPPER BIT OF THE 


314 










RESET/I. 0. REGISTER AND 


TEST THE REMAINING SEVEN BITS FOR CORRECT 


315 










CARD I.D. THE CORRECT 


CARD ID FOR THE FORDYCE CARD IS 5. THE 


316 










SECOND PORTION OF THIS 


CODE CAUSES A SOFT RESET TO THE Z-80 


317 










ANO TESTS WHETHER AN NMI IS CAUSED. A VALUE (SVAL) IS PUT INTO THE 
TEST REGISTER BEFORE NMI IS INVOKED. IF NMI EXECUTES CORRECTLY 


318 










319 










CONTROL WILL BE PASSED 


TO THE INIT ROUTINE WHERE THE VALUE IN 


320 










THE TEST REGISTER UILL 


BE CHANGEO TO MATCH THE PATTERN IN EVAL. 


322 


00A3 


DO 


23 


INC IX 




323 


00A5 


3fl 


00 80 


LD ft, (RESET) 
AND 7FH 




324 


0OA8 


E6 


7F 


MASK OFF REMOTE BIT- SEE IF LOWER 5 BITS 


325 


OOAA 


FE 


05 


CP 5 


ARE CORRECT CARD ID 


326 


OOAC 


C2 


BO 04 


C JP N2,ST_ERR 


IF LOWER BITS <> S THEN ERROR 


327 








• 




328 


OOAF 


3E 


34 


LD fl.SVftL 
E LD (TEST), ft 
LO fi,80H 


STARTING VALUE TO TEST REG. 


329 


0OB1 


32 


00 00 


PUT STARTING VALUE INTO TEST REGISTER 


330 


00B4 


3E 


80 




331 


0OB6 


32 


00 80 


LO (RESET), ft 


CAUSE ft Z-80 RESET BY SETTING BIT 7 


332 








• 


IN THE RESET REGISTER 


333 


00B9 


00 




NOP 




334 


OOBA 


00 




NOP 


WAITING FOR NMI TO COME THROUGH 


335 


OOBB 


3ft 


00 00 


E LD ft, (TEST) 
CP EVflL 


CHECK IF TEST REG. WfiS CHANGED IN INIT 


336 


OOBE 


FE 


43 




337 


OOCO 


28 


03 


JR Z.NMI1 
C JP ST_ERR 


JUMP IF TEST WAS SUCCESSFUL 


338 


00C2 


C3 


BO 04 


IF NOT, GOTO ST_ERR 


340 


00C5 


fiF 




Nhll: XOR ft 


CLEARING THE TEST REG. 


341 


00C6 


32 


00 00 


E LD (TEST), ft 




343 












344 










THE FOLLOWING PORTION OF 


COOE IS TO TEST BIT 7 IN THE STATUS 


345 










OR INTERRUPT REGISTER (THE IEN LINE). THIS TEST SIMPLY SETS 


346 










BIT 7, THEN READS IT BACK 


AGAIN. 


347 














348 


00C9 


21 


01 80 


LD HL.INT REG 




349 


OOCC 


CB 


FE 


SET 7,(HL)~ 


SET IEN BIT (7) IN STATUS REG. 
REAO STAT REd to SEE IF BIT SET 


350 


OOCE 


3ft 


01 80 


LD ft. (INT REG) 


351 


0001 


E6 


CO 


ANO OCOH " 


MfiSK OFF fflTS 6 & 7 


352 


0003 


FE 


80 


CP 80H 


SHOULD BE I£N«1, IRQ«0 


353 


00D5 


C2 


BO 04 


C JP NZ,ST_ERR 




3S5 


0008 


flF 




XOR A 


CLEAR A SO CAN CLEAR IEN BIT 


356 


0009 


32 


01 80 


LD (INT REG), A 




357 








;xx*xx***xxxsxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxx*xxxxxxxxx 


358 










Update 8/10/88 by Randy 


Stout - RMO Production Engineering 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 




MUX SELF-TEST PAGE 10 


359 










; Added the following line to assure INT REG was really checked 
LD ft, (INT REG) Get content of~INT_REG 


360 


OODC 


3A 


01 


80 


361 










>x*xxxxxxxxxxxxxxxxxxxxxxxxxxxx*xsxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxxxxx 


362 


OODF 


E6 


CO 




AND OCOH SHOULO BE IEN-O, IRQ-0 


363 


00E1 


FE 


00 




CP 


364 


00E3 


C2 


80 


04 


C JP NZ,ST_ERR 


366 












367 












SEMAPHORE REGISTER TEST: 


368 














369 












The following is a test for the Semaphore register. There are 


370 












basically four parts to this test. The first part puts the register 


371 












into a known state by writing to it and testing that the write set it 


372 












to zero. The second part of the test then checks the Semaphore 
register again to see if the read (to check the write results) set it. 


373 












374 












The final part of the test is another write to the Semaphore register 


375 












and a check to see if it went from a 1 to correctly. The Semaphore 


376 












register is left set (bit 7«1 ) by the last read. It will be cleared 


377 












in the Initialize routine. The reason for this is added protection 


378 












against the host attempting to send or receive an interrupt before the 
card has completed its Self Test and Initialize routines. 


379 












381 


00E6 


DD 


23 




INC IX 


382 


00E8 


3E 


80 




LO A.80H SETTING INITIAL VALUE -OB WRITING TO IT 
LO (SEM REG). A 
LD A,(SE"n REG) 


383 


OOEA 


32 


02 


80 


384 


OOED 


3ft 


02 


80 


385 


00 FO 


CB 


7F 




BIT 7.A ~ SEE IF SEMAPHORE BIT » 
C JP NZ,ST_ERR IF NO, ERROR 


386 


00F2 


C2 


BO 


04 


388 


00 F5 


3ft 


02 


80 


LO A.fSErl REG) GET CONTENTS OF SEM REG AGAIN 

BIT 7, A A REG ALREADY HAS APDRESS OF SEM REG 


389 


00 F8 


CB 


7F 




390 


00 FA 


Cfl 


80 


04 


C JP Z,ST_ERR IF BIT NOT SET, "1", ERROR 


392 


00 FO 


3E 


80 




LO A.80H CHECK IF WORKS FROM 1 TO 
LD (SEM REG),A 
LD A,(SE"M REG) 

BIT 7.A DID THE WRITE CLEftR THE SEM. REG? 
C JP N2.ST_ERR IF NO. ERROR 


393 


OOFF 


32 


02 


80 


- 394 


0102 


3ft 


02 


80 


395 


0105 


CB 


7F 




396 


0107 


C2 


BO 


04 


397 














398 












NOTE: THE SEMAPHORE REGISTER IS LEFT SET FROM THIS TEST. IT IS 


399 












CLEARED AT THE END OF INIT. THIS WAY IT IS ON ADDED PREVENTION 


400 












IN CASE THE HOST TRIES TO SEND AN INTERRUPT BEFORE THE CARD IS 


401 












READY. 


ERR LINE 


ADDR 


Bl 


B2 


B3 B4 


MUX ROM TEST PAGE 11 


405 










;X*X*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


406 












ROM TEST 


407 














408 












PERFORMS A CRC USING THE POLYNOMIAL X**16+X**2+X*l 


409 












IT EXPECTS A 16 BIT CHECK CHARACTER TO BE STORED IN 


410 












THE UPPER BYTES OF ROM. THE CHECK CHARACTERS ARE STORED 


411 












WITH THE LOW ORDER BYTE FIRST. 


412 














413 












THE MOST SIGNIFICANT BIT OF THE CRC POLYNOMIAL IS THE 


414 












LEAST SIGNIFICANT BIT OF THE Z80 NUMBER. 


415 












E IS THE HIGH OROER CRC REMAINDER. 


416 












IS THE LOW ORDER CRC REMAINDER. 


417 












THIS ALGORITHM. WITH S <- (E XOR CHAR)«X««8 AND 
T <- D«X»«8, CALCULATES T*X**8*S*X«*2+S«X*S. 


418 












419 














420 














421 












Note: The poly nominal X*»16*X*»2+X*1 has the same 


422 












"goodness" (i.e., error detection wise) as the 
CRC-CCITT polynomial X*»16+X»*12*X*«S*1 which is 


423 












424 












slightly better than the CRC-16 polynominal 
X*»16+x»»2+X+l is because of the algorithm execution 


425 












426 












speed. 


427 














428 














429 












RELEVANT REGISTER VALUES UPON UNSUCCESSFUL COMPLETION: 


430 














431 












1. (ROM SEG - B*} » 4K SEGMENT WITH CRC ERROR. 
SEGMENTS NUMBERED FROM 


432 












433 












1. OE ■ COMPUTED CRC FOR SEGMENT 


434 














435 














436 












GLOBAL EQUATES: 


437 












ROM BEG: THE STARTING AOORESS OF ROM 


438 












ROM~ENO: AOORESS OF THE LAST BYTE IN ROM 


439 












ROMZSEG: THE NUMBER OF 4K SEGMENTS IN ROM 


440 














441 












xx*xxxxxxxxxxxxxx*xxx*s**s»xxx*xxxxxxxxxxxxxxxxx*xxxx*x«*xxsx 


443 


010ft 








C ROM: EQU $ 


444 


010A 


00 


23 




INC IX Inc test counter 


445 












The algorithm assumes that RAM has not yet been 


446 












tested and is therefore not usable. Both the 


447 












normal and alternate register sets are used. 


449 


010C 


21 


00 


00 


LD HL.ROtt BEG HL->Start of ROM 


450 


010F 


09 






EXX 


451 


0110 


06 


02 






LO B,ROM_SEG B' > « 4K segments for OJNZ loop 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 


452 


0112 


21 


FF 


IF 


454 


0115 


D9 






455 


0116 


01 


10 


FE 


456 


0119 


11 


FF 


FF 


457 










458 










459 










460 


one 


7E 






461 


011D 


ftB 






462 


011E 


5ft 






463 


011F 


S7 






464 


0120 


17 






465 


0121 


ftft 






466 


0122 


OF 






467 


0123 


OF 






468 


0124 


E6 


CO 




469 


0126 


ftB 






470 


0127 


SF 






471 


0128 


7ft 






472 


0129 


IF 






473 


012A 


ftft 






474 


012B 


IF 






475 


012C 


ftft 






476 


012D 


57 






477 


012E 


23 






478 


012F 


10 


EB 




479 


0131 


00 






480 


0132 


20 


E8 




482 










483 










485 


0134 


7fl 






486 


0135 


09 






487 


0136 


4F 






488 


0137 


09 






489 


0138 


7B 






490 


0139 


09 






491 


013ft 


BE 






492 


013B 


20 


05 




493 


0130 


26 






494 


013E 


79 






495 


013F 


BE 






496 


0140 


28 


04 




497 


0142 








498 


0142 


D9 






499 


0143 


C3 


80 


04 



MUX ROM TEST 

LO HL,R0f1_EN0 



PAGE 12 



ROM 10 
ROfTlS 



60M 20 



HL'->lst CRC check char. 



EXX 

LO 

LO 



BC.0FE10H 
DE.OFFFFH 



Set up loop for 4K-2 length CRC 
Initialize partial remainder 



Calculate CRC on the next 4094 characters. 



R0M_40 : 



LO 

XOR 

LD 

LO 

RLft 

XOR 

RRCft 

RRCA 

AND 

XOR 

LO 

LD 

RRfl 

XOR 

RRft 

XOR 

LO 

INC 



A,(HL) 

E.O 
O.A 



OCOH 
E 

E.fl 
A,0 



Get character 
Calculate CRC 





D,A 

HL L 

OJNZ ROM 20 

DEC C ~ 

JR NZ,R0M_20 P 

OE contains the CRC. Switch to alternate register 
set to check CRC against check character. 



LD 

EXX 

LD 

EXX 

LO 

EXX 

CP 

JR 

DEC 

LO 

CP 

JR 



ft.o 

C,A 

A,E 

(HL) 

NZ.ROM 40 
HL 
A,C 

Z,R0M_50 



EXX 

JP ST ERR 



D'«CRC low byte 

A-CRC high byte 

high bytes compar*? 
If not! 

A«CRC low byte 
low bytes compare? 
If OK 

Go to Self Test Error routine 



ERR LINE AODR Bl B2 B3 B4 MUX ROM TEST 

SOI 
S02 
503 
504 
505 
506 
507 
508 
509 
510 
511 

513 0146 ROM 50: 

514 0146 2B 

515 0147 10 CC 

516 0149 09 
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AT FAILURE THE REGISTER CONTENTS ARE: 



REG BC: 
REG DE : 
REG HL: 
REG B': 



REG HL' 



LOOP COUNTER WHICH SHOULO BE 

COMPUTED CRC IN ERROR 

ROM ftDDR FOR NEXT ROM SEGMENT 

ROM SEGMENT DOWN COUNTER 

ROM SEG - (B 1 ) « SEGMENT UHICH CONTAINS THE 

ERROR (COUNT STARTS FROM 0) 
: ADDR TO ROM CRC VALUE UHICH DID NOT MATCH 
COMPUTED VALUE 



DEC 

OJNZ 

EXX 



HL 
ROM 10 



Loop ends after ROM^SEG times 
Back to regular register set 



ERR LINE 


BOOR 


81 82 


83 84 


MIX RAM Test PAGE 14 


520 








xxx*xxxxxxxxxxxsx*xxxxxxxxxxxxxxxxxxxxx«xxxxx«x***xxxxxxxxxx 


521 








THIS IS THE SHORT RAH TEST TAKEN FROM THE ASI SELF-TEST 


522 








Performs a test of static RAM for stuck-at-0 and stuck-at-1 


S23 








faults and address decoder failures. The algorithm will 


524 








test the following: 


525 








1. Stuck-at-0 and stuck-at-1 faults in every location 


526 








in RAM. 


527 








2. Decoder failures where writing to one location in 


528 








RAM actually causes a write to another location (the 


529 








wrong location gets written to). 
3. Failures which cause multiple locations to be updated 


530 








531 








when a particular RAM location is written to. 


532 










533 
S34 
535 








Algorithm: 








WRITE 01010101 to all RAM 


536 








1-0 


537 








WHILE (I-I+l) <* END OF RAM 
DO BEGIN 


538 








S39 








IF RAM(I) <> 01010101 
THEN GOTO ERROR 


540 








541 








RAM(I) - 10101010 


542 








END 


543 










544 








I-INOEX OF LAST RAM LOCATION 


545 








WHILE (1*1-1) >■ BEGINNING OF RAM 
DO BEGIN 


S46 








547 








IF RAM(I) <> 10101010 
THEN GOTO ERROR 


548 








549 








RAM(I) « 01010101 


550 








ENO 


551 










552 








ERROR: PROCESS RAM ERROR 


553 










554 








No relevant register values upon unsuccessful 


555 








completion. 


556 










SS7 








XXXXXXXX*XXXXXXXXXXXX***XXXXXXXXXXXXXXX*XXXXXXXXXXXXXSXX 


559 


014A 




RAM: 


560 


014A 


00 23 




INC IX :Inc test counter 
Store 01010101 in all RAM locations. 


561 








S63 


014C 


21 02 


CO 


LD HL.RAM BEG HL<- starting address 
LD A,01010"101B 


564 


014F 


3E 55 




565 


01S1 


77 




LD (HL).A 

LD 0E,RHM_BEG*1 


S66 


0152 


11 03 


CO 


ERR LINE 


ADDR 


81 B2 


83 84 


MUX RAM Test PQGE IS 


567 


0155 


01 FO 


07 


LD BC.RAH SIZ-1 


568 


0158 


EO 80 




LOIR 


S70 








The following loop is used for both the scan of RAM 


571 








from bottom to top and from top to bottom. Each 


S72 








RAM location is retrieved, verified to contain the 


573 








appropriate value, and then set with the complement 
of that value. If RAM (n) does not match then the 


574 








575 








following fault has been detected: 


576 








1. There is a stuck-at fault in RAM (n). 


577 








2. When RAM (n) was written to, a decoder 


578 








fault caused the value to be written 


579 








somewhere else. 


S80 








3. When RAM (n*-x) was written to with the 


581 








complement its value, RAM (n) was changed 


582 








also. 


583 








By performing the write and test operation in both 


584 








directions, all possible stuck-at and decoder 


585 








fault combinations can be tested. 


S87 


OlSfl 


21 02 


CO 


LD HL.RflM BEG Start 1st from bottom to top 


588 


0150 


01 07 


00 


LD BC,RAM~SEG « of 256 byte segments 
LD D,01010"1018 0« Test pattern 


S89 


0160 


16 55 




591 


0162 


7E 


RfW1_10: LD fl.(HL) fi«RAH (n) 


592 


0163 


BA 




CP match on pattern? 
JP NZ.ST ERR If not... ERROR 


593 


0164 


C2 BO 


04 C 


594 


0167 


2F 




CPL ~ RAM (n) <- 

LD (HL).A complement of RAM (n) 

CP OlOlOlOlB 1st time thru loop? 


595 


0168 


77 




596 


0169 


FE 55 




597 


016B 


20 03 




JR NZ.RAM IS If yes 


S98 


0160 


28 




DEC HL ~ Top to bottom scan (n»n-l) 


599 


016E 


18 01 




JR RAM LI 6 


600 


0170 


23 


RAM 15 INC HL ~ Bottom to top scan (n«n+l) 
RAM~16 0JN2 RAM^IO Loop to access RAM_SIZ bytes 


601 


0171 


10 EF 


602 


0173 


00 




DEC C Of RAM. (RAM SIZ » RAM SEG«2S6) 


603 


0174 


20 EC 




JR NZ,RflM_lO 


605 


0176 


01 07 


00 RAt1_20 LO BC.RAM_SEG Reset for 2nd pass thru loop 


606 


0179 


28 




DEC HL 


607 


017A 


57 




LD D.fl 

CP 1O101010B Is 2nd pass already done? 


608 


0178 


FE flfl 




609 


0170 


28 E3 




JR Z,RAM_10 If not... scan top to bottom 


610 










611 








OK TO USE RAM FOR STACK 


612 
613 


017F 




forLXIT: 


614 








RAM is now usable, establish stack 



ERR LINE ADDR Bl B2 B3 B4 
616 017F 31 00 C8 



ttUX ROM Test 

ID SP,STK_ADDR 



PPGE 16 



ERR LINE 


BOOR 


Bl B2 B3 


618 






619 






620 






621 






622 






623 






624 






625 






626 






627 






628 






629 






630 






631 






632 






633 






634 






635 






636 






637 






638 






639 






640 






641 






642 






643 






644 






645 






646 






647 






649 


0182 




6S0 


0182 


DO 23 


651 


0184 


3E 03 


652 


0186 


03 DO 


653 


0188 


03 01 


654 


018ft 


03 02 


655 


018C 


03 03 


657 






658 






659 






661 


018E 


3E CO 


662 


0190 


EO 47 


663 


0192 


3E 10 


664 


0194 


D3 00 


665 


0196 


21 48 00 


666 


0199 


11 10 CO 


667 


019C 


01 08 00 



MUX CTC TEST 
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xxxxxxxxxxxxxxxxxxxx***xxxxxxx*xxxxxxxxxxsxxx****xxxxxxx*«x* 
MUX CTC #0 TEST 

The CTC test implements two algorithms to test the CTC: 

ftlgorithm 1: 
Tests for stuck-at-1 & in the time constant register, 
the down counter, and the data lines. A 256 prescale is 
also checked. All channels are set up with all zeros in 
the time constant register (256). The down counter is 
read before the first increment and then again after the 
first increment. This is repeated with all one's initially 
in the time constant register (255). 

ftlgorithm 2: 
This algorithm is only performed on the CTC which is 
connected to the interrupt priority daisy chain (CTC #1). 
It tests external trigger, more combinations of the channel 
control register, 2C/T02, and some channel independence. 
Also, the ability to hold off interrupts (an interrupt 
should disable further interrupts) and correct daisy 
chain interrupt servicing are checked. The interrupt 
vector register is loaded such that channel 2, then 
channel 3, then 2, then interrupt. The order of service 
should be 2,0,1, and 3. As each channel gains control, it 
sets its interrupt vector to point to an error, resets 
itself, adds to the checksum, sets next-channel-to-get- 
controi's interrupt vector to point to that routine, 
enables interrupts, and returns. 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxsxxxxxxxxxxxxxxxxxxxxxxxxx 



CTC: 



EQU 

INC 

LD 

OUT 

OUT 

OUT 

OUT 



$ 
IX 
A.03H 

!CTC CO) 
CTC"0 CI 
CTC 0_C2 
CTC_0~C3 



RESET ALL CTC #0 CHANNELS 



BEGIN ALGORITHM 1 - CTC #0 



LO 
LD 

LO 

OUT 

LD 

LD 

LO 



A,. HIGH. CTC VO 

I. ft 

A.10H 

(CTC CO), A 

HL.CTCTT1 

DE.CTC VO 

BC,8 



SET UP INT VECTORS FOR CTC #0 



SET UP VECTOR IN CTC UITH 10H 

THIS IS ADDRESS OF INTERRUPT VECTORS 



ERR LINE ADDR Bl 62 B3 B4 



668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 



713 
714 



716 



019F 
01A1 
01A3 
01A4 



01AB 
OlfiD 
OlfiF 
01B0 



01B5 
01B7 
01B8 
01BB 
01BC 

01BE 
01BF 



01C2 
01C4 
01C5 
01C8 
01C9 



EO BO 
ED 5E 
AF 
FB 



01AS 11 00 B7 



01A8 01 00 04 



MUX CTC TEST 




PAGE 18 


LOIR 
in 2 
XOR A 
EI 


SET INTERRUPT MODE TO 2 

CLEAR A REG - USE TO CHECK VAL . 


OF DOUN CNTR 


LD 0E.0B700H 

1 


-> CHANNEL CONTROL REG 
INTS,TIMER.2S6PS,,IN TRIG 





EO 51 
EO 59 
OC 
10 F9 



XCTCLO: 
XCTCL1: 



01B2 01 DO 04 



ED 58 

BB 

C2 BO 04 

OC 

10 F7 

3D 

01 00 04 



ED 58 

BB 

C2 BO 04 

OC 

10 F7 



XCTCL2: 



XCTCL3: 



01 CB FE FE 
01C0 20 D9 



01CF F3 



B -> TIf€ CONSTANT 
B»00«2S6, B«FF=2S5 
LO BC,2S6*4*CTC CO 



OUT (C),D 
OUT (C),E 
INC C 
OJNZ XCTCL1 



LD 8C ,256»4+CTC_0_CO 



LOAD CHANNELS 

Tiro LOADED U O/PRESCAL. 



-2S6 



IN 
CP 
JP 
INC 



|.(C) 

NZ.ST ERR 
C 



ALL CHANNELS MUST BE READ 
BEFORE 256T STATES ELAPSE 
FROM THE TIME THE CHANNEL 
IS STARTED. (ALL ARE READ 
BETUEEN 153 4 196 T) 
A*EXPECTEO(E«ACTUAL,C*CTC*) 



DJN2 XCTCL2 



DEC 
LO 



IN 
CP 
JP 
INC 



6C,2S6*4*CTC_0_CO 



|,(C) 

NZ.ST ERR 
C 



DJNZ XCTCL3 



CP 
JR 



DI 



OFEH 

NZ, XCTCLO 



ALL CHANNELS MUST BE READ 
AFTER 2S6T STATES, BUT fiEFORE 
S12T STATES NAVE ELAPSED FROM 
THE TIME THE CHANNEL IS 
STARTED. (ALL ARE READ 
BETUEEN 334 & 421 T) 
A«EXPECTED (E»ACTUAL ,C»CTC«) 



TEST RUN TWICE-T«0;T«25S 



Begin Algorithm 2 - CTC #0 



LINE 


ADOR 


61 


B2 


83 B4 


717 










718 










719 










720 










721 










722 


01DO 


OD 


23 




723 


01D2 


06 


00 




724 


01D4 


3E 


97 




725 


01D6 


D3 


00 




726 


01D8 


03 


Dl 




727 


01DA 


D3 


02 




728 


01DC 


03 


03 




729 


01DE 


21 


01 


02 


730 


01E1 


22 


14 


CO 


731 


01E4 


3E 


09 




732 


01E6 


03 


Dl 




733 


01E8 


D3 


DO 




734 


01EA 


3E 


01 




735 


01EC 


D3 


03 




736 


01EE 


D3 


02 




737 


01 FO 


3E 


03 




738 


01 F2 


21 


F2 


02 


739 


01 F5 


FB 






740 


01 F6 


00 






741 


01 F7 


00 






742 


01 F8 


F3 






743 


01F9 


3E 


FO 




744 


01FB 


68 






745 


01 FC 


C2 


BO 


04 


746 


01FF 


18 


3C 




748 










749 










750 










751 










752 










7S3 


0201 


22 


14 


CO 


754 


0204 


D3 


02 




755 


0206 


CB 


CO 




7S6 


0208 


11 


11 


02 


757 


020B 


ED 


S3 


10 CO 


758 


020F 


18 


27 




759 










760 


0211 


22 


10 


CO 


761 


0214 


03 


00 




762 


0216 


CB 


DO 




763 


0218 


11 


21 


02 


764 


021B 


ED 


53 


12 CO 


765 


021F 


18 


17 




766 











MUX CTC TEST 
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XI2: 



XIO: 



INC 

LO 

LD 

OUT 

OUT 

OUT 

OUT 

LO 

LD 

LO 

OUT 

OUT 

LD 

OUT 

OUT 

LO 

LO 

EI 

NOP 

NOP 

01 

LD 

CP 

JP 

JR 



,A 

It A 

!:« 



IX 
6,0 
A.97H 
(CTC CO) 

CTC 0~C1 

CTC~0"C2 

CTC"0~C3j 
HL.XT2" 
(CTC_V0*4),HL 

(CTC CI), A 

]CTC~0~CO),A 

A.l 

(CTC C3),A 

]CTC_0_C2),A 

Ht,CTC_ERRO 



A.OFOH 

B 

NZ.ST ERR 

XOK ~ 



ASSUME : 

1=00, CTCO INT VEC REG- 00 
INT TRANSFER VEC SET TO ERROR 
IM 2, DI 



CLEAR CHECKSUM 

INT, TIMER, 16PS, EXT TRIG 

CH3 SHOULD TRY TO INT AFTER 

CH2 & BEFORE CHI OR CHO 

CH2 « BEFORE CHI OR CNO 

PUT ADDR. OF INT. ROUTINE IN RAM 

VECTOR LOCATION 

TIME CONST SUCH THAT CHI 

FOLLOWED BY CHO TRY TO INT 

WHILE IN CH2 INT ROUTINE 



A <- CHAN CONTROL RESET 

1MUST BE >23T AFTER CH2 LOADEO 
CH2 SHOULD INT AFTER TNIS) 
FOR NMI PROTECTION) 
LL CHS SHOULO HAVE INT BY NOW 
SEE IF ALL 4 CHS INT IN ORDER 



INTERRUPT ROUTINES FOR XCTC ALG 2 



SPAC 4 



LD 

OUT 

SET 

LO 

LD 

JR 



(CTC V0*4),HL 

(CTC C2),A 

O.B 

OE.XIO 

(CTC VO),OE 

XIC 



LD (CTC V01.HL 

OUT (CTC 0" CO), « 

SET 2.B" 

LO DE.XI1 

LO (CTC_V0*2),DE 

JR XIC 



POINT INT VEC TO ERROR 

RESET CHANNEL 

ADD TO CHECKSUM 

SET INT TRANSFER VEC 

OF NEXT CHANNEL 



EACH OF THESE INTERRUPT ROUTINES 
SETS THE ADDRESS OF THE NEXT 
ISR EXPECTED INTO ITS PROPER 
RAM LOCATION, REPLACING THE 
EXISTING JP CTC ERRO INSTRUCTION. 



ERR LINE 


BOOR 


Bl 


82 


B3 B4 


MUX CTC 


TEST 
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767 


0221 


22 


12 


CO 


XII: 


LD 


(CTC V0*2),HL 




768 


0224 


D3 


Dl 






OUT 


(CTC~0 CI), A 




769 


0226 


CB 


EO 






SET 


4 B "- 
DE.XI3 




770 


0228 


11 


31 


02 


C 


LD 




771 


022B 


EO 


53 


16 CO 




LD 


(CTC V0*6),DE 




772 


022F 


18 


07 






JR 


XIC " 




773 










• 








774 


0231 


22 


16 


CO 


XI3: 


LD 


(CTC V0+6),HL 




77S 


0234 


03 


03 






OUT 


(CTC"0 C3) ,A 
6,8 




776 


0236 


CB 


FO 






SET 




777 


0238 


CB 


20 




XIC: 


SLA 


B 




778 


023A 


FB 








EI 






779 


023B 


EO 


4D 






RETI 






780 










; 








781 


0230 








C XOK: 


EQU 


$ 




783 


















784 




















78S 












• * • 


REPEAT CTC ALGORITHM 1 FOR CTC #1 


786 




















788 


0230 


00 


23 






INC 


IX 




789 


023F 


3E 


03 






LD 


A.03H 


RESET ALL CTC il CHANNELS 


790 


0241 


D3 


EO 






OUT 


(CTC 1 CO), A 




791 


0243 


03 


El 






OUT 


(CTC"1~C1 ,A 




792 


0245 


03 


E2 






OUT 


(CTC"1"C2 ,A 




793 


0247 


03 


E3 






OUT 


(CTC_1_C3) ,A 




795 


0249 


3E 


CO 






LD 


A,. HIGH. CTC VI 


SET UP INTERRUPT VECTORS IN RAM FOR 


796 


0248 


EO 


47 






LO 


I, A 


CTC #1 


797 


0240 


3E 


30 






LD 


A.30H 

(CTC 1 CO), A 


PUT CTC VECTOR ADDRESS IN 


798 


024 F 


03 


EO 






OUT 


CTC. 


799 


0251 


21 


48 


00 


C 


LD 


HL.CTCTT1 




800 


0254 


11 


30 


CO 




LO 


OE.CTC VI 




801 


0257 


01 


08 


00 




LD 


BC,8 




802 


025A 


EO 


BO 






LOIR 






803 


025C 


AF 








XOR 


A 


CLEAR A - USED IN OOUN CNTR CHECK 


804 


0250 


FB 








EI 






805 










; 








806 


025E 


11 


00 


B7 




LD 


DE.0B700H 


-> CHANNEL CONTROL REG 


807 










• 






INTS, TIMER. 256PS,, IN TRIG 


808 










; 






B -> TIME CONSTANT 


809 










• 






B=00«2S6, B=FF«2S5 


810 


0261 


01 


EO 


04 


XCTCLOA: 


LD 


BC,2S6«4«-CTC_1 


_C0 


811 










; 








812 


0264 


ED 


51 




XCTCL1A: 


OUT 


(C),D 


LOAD CHANNELS 


813 


0266 


EO 


59 






OUT 


|C E 




814 


0268 


OC 








INC 


C 




81S 


0269 


10 


F9 






OJNZ 


XCTCL1A 




ERR LINE 


ADDR 


Bl 


62 


B3 B4 


MUX CTC 


TEST 
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816 










; 








817 


026B 


01 


EO 


04 




LD 


BC,256»4*CTC_1 


_co 


818 










; 








819 










j 






ALL CHANNELS MUST BE READ 


820 










• 






BEFORE 2S6T STATES ELAPSE 


821 










• 






FROM THE TIME THE CHANNEL 


822 


026E 


ED 


58 




XCTCL2A 


IN 


E,(C) 


IS STARTED. (ALL ARE READ 
BETWEEN 153 & 196 T) 


823 


0270 


BB 








CP 


E 


824 


0271 


C2 


BO 


04 


C 


JP 


NZ.ST ERR 


A-EXPECTED (E»ACTUAL ,C«CTC* ) 


82S 


0274 


OC 








INC 


C 




826 


0275 


10 


F7 






DJNZ 


XCTCL2A 




827 










j 








828 


0277 


3D 








DEC 


A 




829 


0278 


01 


EO 


04 




LD 


BC,2S6*4*CTC_1 


_co 


830 




















831 


















ALL CHANNELS MUST BE READ 


832 


















AFTER 2S6T STATES, BUT BEFORE 
512T STATES HAVE ELAPSED FROM 


833 


















834 


















THE TIME THE CHANNEL IS 


835 


027B 


EO 


58 




XCTCL3A 


IN 


E,(C) 


STARTED. (ALL ARE READ 
BETUEEN 334 & 421 T) 


836 


0270 


BB 








CP 


E 


837 


027E 


C2 


BO 


04 


C 


JP 


NZ.ST ERR 


A-EXPECTED (E-ACTUAL , C-CTC* ) 


838 


0281 


OC 








INC 


C 




839 


0282 


10 


F7 






DJNZ 


XCTCL3A 




840 










j 








841 


0284 


F3 








01 






843 


















844 












Repeat Algorithm 2 


for CTC #1 


846 


















847 
















ASSUME: 


848 
















I«00, CTCO INT VEC REG-00 


849 
















INT TRANSFER VEC SET TO ERROR 


8S0 
















IM 2, DI 


851 


















8S2 


0285 


DO 


23 






INC 


IX 




853 


0287 


06 


00 






LO 


8,0 


CLEAR CHECKSUM 


854 


0289 


3E 


97 






LO 


A.97H 

(CTC 1 CO), A 


INT, TIMER, 16PS, EXT TRIG 


855 


028B 


03 


EO 






OUT 




856 


028D 


03 


El 






OUT 


(CTC l~Cl),A 


CH3 SHOULD TRY TO INT AFTER 


857 


028F 


03 


E2 






OUT 


(CTC 1 C2),A 


CH2 & BEFORE CHI OR CHO 


858 


0291 


03 


E3 






OUT 


(CTC"1 C3),» 


CH2 & BEFORE CHI OR CHO 


859 


0293 


21 


B6 


02 


C 


LO 


HL,XC"TC"I2 
(CTC V1*4),HL 

A, 9 


PUT ADOR. OF INT. ROUTINE IN RAM 


860 


0296 


22 


34 


CO 




LO 


VECTOR LOCATION 


861 


0299 


3E 


09 






LD 


TIME CONST SUCH THAT CHI 


862 


029B 


03 


El 






OUT 


(CTC 1 CI), A 


FOLLOWED BY CHO TRY TO INT 


863 


0290 


03 


EO 






OUT 


I CTC CCO ) ,A 


UHILE IN CH2 INT ROUTINE 


864 


029F 


3E 


01 






LO 


A .1 




865 


02fll 


03 


E3 








OUT 


(CTC_1 C3),fl 





ERR LINE 


ADOR 


Bl 


B2 


B3 B4 


866 


02A3 


03 


E2 




867 


0205 


3E 


03 




868 


0207 


21 


F2 


02 


869 


0200 


FB 






870 


02AB 


00 






871 


020C 


00 






872 


0200 


F3 






873 


020E 


3E 


FO 




874 


02BO 


B8 






875 


02B1 


C2 


BO 


04 


876 


02B4 


18 


40 




878 










879 










880 










881 










882 


02B6 


22 


34 


CO 


883 


02B9 


03 


E2 




884 


02BB 


CB 


CO 




885 


02BD 


11 


C6 


02 


886 


02C0 


EO 


S3 


30 CO 


887 


02C4 


18 


27 




888 










889 


02C6 


22 


30 


CO 


890 


02C9 


03 


EO 




891 


02C8 


CB 


00 




892 


02CD 


11 


D6 


02 


893 


0200 


EO 


53 


32 CO 


894 


0204 


18 


17 




895 










896 


02D6 


22 


32 


CO 


897 


0209 


D3 


El 




898 


020B 


CB 


EO 




899 


0200 


11 


E6 


02 


900 


02E0 


ED 


53 


36 CO 


901 


02E4 


18 


07 




902 










903 


02E6 


22 


36 


CO 


904 


02E9 


03 


E3 




905 


02EB 


CB 


FO 




906 


02ED 


CB 


20 




907 


02EF 


FB 






908 


02 FO 


ED 


40 




909 










911 










912 











MUX CTC TEST 

OUT 

LD 

LD 

EI 

NOP 

NOP 

01 

ID 

CP 

JP 

JR 



PACE 22 



XCTCI2: 



XCTCIO: 



(CTC_1_C2),A 
HL,CTC_ERRO 



A.OFOH 

B 

N2.ST ERR 

XCTCOI? 



ft <- CHON CONTROL RESET 

(OUST BE >23T ftFTER CH2 LOAOED 
(CH2 SHOULD INT AFTER THIS) 
(FOR NMI PROTECTION) 
ALL CHS SHOULD HOVE INT BY NOU 
SEE IF ALL 4 CHS INT IN OROER 



INTERRUPT ROUTINES FOR XCTC ALG 2 



LD (CTC V1*4),HL 

OUT (CTC 1 C2 ,A 

SET 0,B ~ ~ 

LD DE, XCTCIO 

LD (CTC V1),DE 

JR XCTCTC 

LD (CTC V1J.HL 

OUT (CTC T CO), A 

SET 2,B 

LD DE.XCTCIl 

LD (CTC V1*2),DE 

JR XCTCTC 



POINT INT VEC TO ERROR 

RESET CHANNEL 

AOD TO CHECKSUM 

SET INT TRANSFER VEC 

OF NEXT CHANNEL 



EACH OF THESE INTERRUPT ROUTINES 
SETS THE ADDRESS OF THE NEXT 
ISR EXPECTED INTO ITS PROPER 
RAM LOCATION. REPLACING THE 
EXISTING JP CTCERRO INSTRUCTION. 



XCTCIl: 


LD 


(CTC Vl+2) 


,HL 




OUT 


CTC 1 CI) 


.A 




SET 


4,8 " ~ 






LD 


0E.XCTCI3 






LD 


(CTC Vl*6) 


,0E 




JR 


XCTCTC 




XCTCI3: 


LD 


(CTC Vl*6) 


,HL 




OUT 


(CTC 1 C3 


,A 




SET 


6.B 




XCTCIC: 


SLA 
EI 
RET I 


B 





CTC #0 ERROR ENTRY 



ERR LINE ADDR Bl B2 B3 64 

913 

914 02F2 

915 02F2 El 

916 02F3 C3 BO 04 



MUX CTC TEST 



dTCERRO: 



POP HL 

JP ST ERR 
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918 02F6 

919 02F6 



XCTCOK: EQU S 



ERR LINE 


fiDDR 


Bl 


B2 B3 B4 


MUX 


ASYNCHRONOUS SIO TEST 
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922 








**S*S*S**S*****(****S*t*S*S****S***S*SXSSS********S 


923 










Async SIO Test 




924 














925 








Pe 


'forms a basic function 


al test of channels A & B 


926 








of 


the SIO to asynchronously transmit 8 bytes 


927 








of 


data at 19.2 KBAUD. 




928 








The test uses the 'poll mode' capability of 


929 








the SIO, not the 'interrupt mode'. 


930 














931 








If 


there is a stuck-at-0 


condition in the 'RD' 


932 








lines or if there is a generally malfunctioning 


933 








SIO, the test could loop 
Buffer Available' or 'RX 


forever waiting for 'TX 
character available'. A 


934 








93S 








de adman timer is used to 


both detect this condition 


936 








and to detect the case where the SIO is transmitting, 


937 








but 


at a rate much slower 


than the configured 9600 BAUD. 


938 














939 








This test also verifies that the status signals RO 


940 
941 
942 








will toggle between and 


1. 








**»««*»**«*****»**«»**«******»****«******»*»******»*««»««*»» 


944 


02F6 


OE 


DO 




LD C.CTC CO 


RESET ALL CTC & PROGRAM FOR 19. 2K BAUD 


945 


02F8 


06 


04 




LD B,4 ~~ 




946 


02 FA 




nsio 


20: 




947 


02 FA 


3E 


57 




LD A.S7H 
OUT fCl.A 

LD A,e 

OUT fC),A 
INC C 




948 


02 FC 


EO 


79 






949 


02 FE 


3E 


06 






950 


0300 


ED 


79 






951 


0302 


OC 








952 


0303 


10 


F5 




DJNZ MSI0_20 




954 


030S 


OE 


EO 




LD CCTC 1 CO 




955 








i*»****«»*»»»«* »»»************»**»*»**«*»»«*« **»*»»***»«**«»***«*»«*** 


956 








Bug fix 7/27/88 - Change 


"LD B,4" to "LD B,2" 


957 








***»s*»«*»»****«**»***«*»*»**«**»**xx****»»***«*«**»****«***«*»*****«» 


958 


0307 


06 


02 




LO B.2 




9S9 


0309 




r 


1SI0. 


30: 




960 


0309 


3E 


57 




LD A.S7H 
OUT (C),A 
LD A, 6 
OUT (C),A 
INC C 




961 


030B 


EO 


79 






962 


030D 


3E 


06 






963 


030F 


ED 


79 






964 


0311 


OC 








96S 


0312 


10 


F5 




DJNZ MSI0_30 




967 


0314 


21 


48 00 C 




LD HL.CTCIT1 


SET UP INTERRUPT STUFF 


ERR LINE 


ADOR 


Bl 


B2 B3 B4 


MUX 


ASYNCHRONOUS SIO TEST 


PAGE 2S 


968 


0317 


7C 






LD A.H 


FOR OEADMAN TIMER ON CTC #1 CHANNEL #2 


969 


0318 


ED 


47 




LD I, A 




970 


031A 


7D 






LD A.L 

OUT (CTC_1_C0) ,A 




971 


031B 


03 


EO 




THE INTERRUPT VECTOR GOES TO CH #0 


973 


031D 


OE 


71 




LO C.SIO AC 


PROGRAM ALL SIO CHANNELS 


974 


031F 


IE 


02 




LD E,2 "~ 




975 


0321 


21 


87 04 C 




LD HL.ROM SIO 




976 


0324 




r 


610. 


120: 




977 


0324 


06 


07 




LD B.SIO SIZ 




978 


0326 


ED 


B3 




OTIR 




979 


0328 


OC 






INC C 


INCREMENT TO NEXT PORT 


980 


0329 


OC 






INC C 




981 


032A 


10 






DEC E 


FINISH YET? 


982 


032B 


20 


F7 




JR NZ,MSI0_12O 


NO 


984 


032D 


OE 


Bl 




LD C.SIO 1 AC 


PROGRAM SIO-1 CHANNELS A AND B 


985 


032F 


IE 


02 




LD E,2 




986 


0331 


21 


95 04 C 




LD HL,R0M_SI0*1* 




987 


0334 




r 


IS 10. 


170: 




988 


0334 


06 


07 




LD B,SIO_SIZ 




989 


0336 


EO 


B3 




OTIR 




990 


0338 


OC 






INC C 




991 


0339 


OC 






INC C 




992 


033A 


10 






DEC E 




993 


033B 


20 


F7 




JR NZ,MSI0_170 




994 














995 








# , 


. HOOD DETECTION 




996 














997 










THERE CAN BE A HOOD ON ANY OF THE FOUR CHANNELS. FOR CHANNELS 


998 










1-3. A HOOD CAN BE 


DETECTEO BY HAVING CERTAIN INPUT LINES SET. 


999 










AS CHANNEL IS A 


MODEM PORT. THE HOOD DETECTION TEST IS 


1000 










DEFFERENT. THE FOLLOWING IS AN EXPLANATION OF HOW HOOOS ARE 


1001 










DETECTED ON EACH PORT. 


1002 














1003 










CHANNEL (MOOEM PORT) - THE DTR LINE UILL BE RESET, THEN A 


1004 










LOOPBACK TEST 


UILL BE PERFORMEO ON MODEM LINES IC & SR. 


1005 










HOOD OETECTION UILL BE ACHIEVED BY WIGGLING SIO #0 CHANNEL 


1006 










B DCD LINE USING A PREDEFINED PATTERN. CHECK SIO #0 


1007 










CHANNEL B RTS 


LINE TO SEE IF IT WIGGLES IN THE SAME WAY. 


1008 










IF YES, A HOOD 


IS THERE. 


1009 










CHANNEL 1 - IF THE CTS LINE ON SIO-O-B IS SET. A HOOD IS 


1010 










CONNECTED. 




1011 










CHANNEL 2 - IF THE CTS LINE ON SIO-l-A IS SET. A HOOD IS 


1012 










CONNECTED . 




1013 










CHANNEL 3 - IF THE CTS LINE ON SIO-l-B IS SET. A HOOD IS 


1014 










CONNECTED. 




1015 














1016 










E' UILL CONTAIN A 


CODE REPRESENTING WHICH CHANNELS HAVE 


1017 










HOOOS ATTACHED AND 


UHICH DON'T. BITS 0-4 IN E' REPRESENT 


1018 










CHANNELS 0-4. A • 


1* IN ONE OF THESE BIT POSITIONS MEANS THAT A 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 




MUX ASYNCHRONOUS SIO TEST 
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1019 














HOOD 


IS ATTACHED TO THE CHANNELS REPRESENTED BY THAT BIT. 


1020 












9 








1022 


0330 


3E 


10 








LO 


A.10H 

(SIO AC), A 


RESET SIO CHANNELS - EXT. STAT. INT. 


1023 


033F 


03 


71 








OUT 




1024 


0341 


03 


73 








OUT 


SIO~0 BC),A 




1025 


0343 


03 


Bl 








OUT 


(SIO 1~AC ,A 




1026 


0345 


03 


B3 








OUT 


(SI0~1~BC ,A 




1028 




















1029 












•BEGIN HOOD DETECTION CODE 


FOR PORT - MODEM PORT 


1030 




















1031 


0347 


06 


08 








LO 


B,8 


WIGGLING SIGNALS 8 TIMES 


1032 


0349 


11 


35 


4D 






LD 


0E.04D35H 


SEND PATTERN 0100 1101 


1033 












j 






RECEIVE PATTERN 00110101 


1034 


034C 


21 


08 


02 






LD 


HL.0208H 


SENO MASK 0000 0010 - MASK RTS BIT 


1035 












; 






RECEIVE MASK 0000 1000 - MASK DCD BIT 


1036 


034F 










HOODO 








1037 


034 F 


3E 


IS 








LD 


A.1SH 


SET REG. POINTER TO S 


1038 


0351 


03 


73 








OUT 


(SIO BC),A 
A,0 




1039 


0353 


7A 










LD 


OUTPUT THE RTS PATTERN 


1040 


0354 


A4 










AND 


H 




1041 


0355 


03 


73 








OUT 


(SIO_0_BC),A 




1042 


0357 


7B 










LO 


DETERMINE THE INPUT PATTERN 


1043 


0358 


AS 










AND 


L* 




1044 


0359 


4F 










LD 


C,A 


SAVE THE PATTERN IN REG. C 


1045 


03SA 


3E 


10 








LD 


A.10H 

(SIO BCJ.A 

A,(STO 0_6C) 


RESET THE EXTERNAL STATUS 


1046 


035C 


D3 


73 








OUT 




1047 


03SE 


OB 


73 








IN 


READ THE INPUT PATTERN 


1048 


0360 


AS 










AND 


L 




1049 


0361 


B9 










CP 


C 


SIGNAL MATCHES? 


1050 


0362 


20 


OB 








JR 


NZ.H0001 


NO 


10S1 


0364 


CB 


02 








RLC 





MOVE TO NEXT PATTERN 


1052 


0366 


CB 


03 








RLC 


E 




1053 


0368 


















10S4 


0368 


10 


ES 








DJNZ 


HOODO 




1055 


036A 


06 


01 








LD 


B.l 


SET BIT IN B REG.- HOOD ON PORT #0 


10S6 


036C 


C3 


71 


03 


C 




JP H0002 




1058 


036F 


06 


00 






H00D1 


LO 


8,0 


CLEAR B REG. IF NO HOOO ON PORT *0 


1060 












;Reconfigure 


URS on SIO-O channel B 


1062 


0371 


3E 


15 






H00D2 


LD 


A.15H 

(SIO BC),A 
A.68R ~ 
(SIO BC),A 




10S3 


0373 


03 


73 








OUT 




1064 


0375 


3E 


68 








LD 


WR3.8BIT TX.TX ENABLE 


1065 


0377 


03 


73 








OUT 




ERR LINE 


ADDR 


Bl 


B2 


B3 B4 
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1067 




















1068 












•BEGIN HOOD TESTS ON PORTS 


1-3 


1069 




















1070 


0379 


DB 


73 








IN 


A,(SIO_0_BC) 




1071 


037B 


CB 


6F 








BIT 




1072 


037D 


CA 


82 


03 


C 




JP 


Z!H0003 




1073 


0380 


CB 


C8 








SET 


l.B 


SET BIT 1 IN B REG IF HOOD ON PORT tl 


1075 


0382 


DB 


Bl 






H00D3 


IN 


fl.(SI0_l_AC) 




1076 


0384 


CB 


6F 








BIT 




1077 


0386 


CA 


8B 


03 


C 




JP 


z!hood4 




1078 


0389 


CB 


00 








SET 


2.B 


SET BIT 2 IN B REG IF HOOD ON PORT #2 


1080 
1081 


038B 
0380 


OB 
CB 


B3 

6F 






H00D4 


IN 
BIT 


A,(SI0_1_BC) 




1082 


038F 


CA 


94 


03 


C 




JP 


z! HOODS 




1083 


0392 


CB 


08 








SET 


3,B 


SET BIT 3 IN B REG IF HOOD ON PORT #3 


1085 


0394 


78 








HOODS 


LD 


A,B 




1086 


0395 


09 










EXX 






1087 


0396 


SF 










LD 


E,A 


STORE THE HOODS-DETECTED PATTERN IN E' 


1088 


0397 


D9 










EXX 






1090 




















1091 














THE FIRST RUN THROUGH 


THE FOLLOWING LOOP IS DONE WITH INTERNAL 


1092 












;LOOPBACK ENA8LED, THE SECOND WITH INTERNAL LOOPBACK DISABLED AND 


1093 












;ORIVERS ENABLED. 




1094 




















1095 


0398 


DO 


23 








INC 


IX 




1096 


039A 


OE 


71 








LD 


C.SIO AC 
SIO TEST 




1097 


039C 


CD 


58 


04 


C 




CALL 




1098 


039F 


00 


23 








INC 


IX ~ 




1099 


03A1 


OE 


73 








LD 


C.SIO BC 




1100 


03A3 


CO 


58 


04 


C 




CALL 


SIO TEST 




1101 


03A6 


DO 


23 








INC 


IX 




1102 


03A8 


OE 


81 








LD 


C.SIO 1 AC 




1103 


03AA 


CD 


58 


04 


C 




CALL 


SIO TEST 




1104 


03AD 


DO 


23 








INC 


IX " 




1105 


03AF 


OE 


83 








LO 


C.SIO 1 BC 
SIO_TEST 




1106 


03B1 


CD 


58 


04 


C 




CALL 




1108 


03B4 


09 










EXX 






1109 


0385 


78 










LD 


A,E 


RETRIEVE HOOD DETECT BITS IN E REG 


1110 


03B6 


D9 










EXX 






1111 


03B7 


SF 










LD 


E,A 


USING E AS TEMP STORAGE OF ORIG. PATTERN 


1112 


03B8 


B7 










OR 


A 




1113 


03B9 


20 


03 








JR 


NZ.MSIO 200 




1114 


03BB 


C3 


A3 


04 


C 




JP 


SIO DONE" 




111S 












• 









ERR LINE 


AODR 


Bl 


B2 B3 B4 




I1UX 


ASYNCHRONOUS SIO TEST 


PAGE 28 


1116 










EXTERNAL LOOPBACK THRU TEST HOODS 


1117 




















1119 


038E 






HSIO_ 


200 








1120 


03BE 


3E 


15 








LD 


A.1SH 

(SIO 1 BC),A 
A.OlTOTOOOB 
(SIO 1 BC),A 




1121 


03C0 


D3 


B3 








OUT 




1122 


03C2 


3E 


68 








LD 


TURN OFF BIT FOR INTERNAL LOOPBACK (RTSB) 


1123 


03C4 


D3 


83 








OUT 




1125 




















1126 
1127 
1128 










EXTERNAL LOOPBACK FOR PORT 


#0 (IIODEtt PORT) 










Will 


be looping data through the following line combinations: 


1129 












1. 


TX & 


RX 




1130 












2. 


RS & 


CS 




1131 












3. 


TR & 


on 




1132 












4. 


SR & 


RR 




1133 










note 




IC & 


SR are also connected to each other in the test hood. 


1134 










However, they will not be 


tested here as they were used to detect 


1135 










the presence of the hood 


in the first place. They were effectively 


1136 










tested in 


the hood detection routine. 


1138 


03C6 


00 


23 








INC 


IX 




1139 


03C8 


7B 










LD 


A,E 


RETRIEVE ORIGINAL HOOD DETECT. PATTERN 


•1140 


03C9 


E6 


01 








AND 


1 


ttASK OFF BIT 


1141 


03CB 


CA 


F5 03 


C 






JP 


2.P0RT2 


IS THERE A HOOD ON PORT #0? JUMP IF NO 


1143 










test 


TX 


& RX 


lines 




1144 


03CE 


OE 


71 








LD 


C.SIO AC 
SIO_TE*ST 




1145 


03D0 


CD 


58 04 


C 






CALL 




1147 










test 


RS 


& CS 


lines 




1148 


0303 


16 


71 








LD 


D.SIO AC 


OUTPUT PORT 


1149 


0305 


5A 










LD 


E,0 " 


INPUT PORT 


1150 


0306 


2E 


02 








LD 


L.2 


TO INOICATE RTS BIT IN URS 


1151 


0308 


26 


20 








LD 


H.20H 
L00P_TEST 


TO INDICATE CTS BIT IN RRO 


1152 


030A 


CD 


2D 04 


c 






CALL 




11S4 










test 


TR 


& on 


lines 




1155 


030D 


2E 


80 








LD 


L.80H 


TO INDICATE 0TR BIT IN URS 


1156 


030F 


26 


10 








LD 


H.10H 
LOOP.TEST 


TO INOICATE SYNC BIT IN RRO 


1157 


03E1 


CD 


2D 04 


c 






CALL 




1159 










test 


SR 


& RR 


lines 




1160 


03E4 


16 


73 








LD 


D.SIO BC 




1161 


03E6 


2E 


02 








LD 


1.2 


TO INDICATE RTS BIT IN URS 


1162 


03E8 


26 


08 








LD 


H,8 


TO INDICATE DCD BIT IN URO 


ERR LINE 


AODR 


Bl 


B2 B3 B4 
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1163 


03EA 


CD 


20 04 


c 






CALL 


LOOPJTEST 




1165 










Reconfigure 


JRS in SIO-0 channel a 


1167 


03ED 


3E 


IS 








LD 


A.15H 

(SIO AC), A 
A.68R " 
(SIO AC), A 




1168 


03EF 


03 


71 








OUT 




1169 


03F1 


3E 


68 








LD 


URS: 8 BIT TX, TX ENABLE 


1170 


03F3 


03 


71 








OUT 




1171 




















1172 










EXTERNAL LOOPBACK FOR PORTS 


1-3 


1173 
1174 


03F5 






1 


k)RT2 










1175 


03 F5 


DD 


23 








INC 


IX 




1176 


03 F7 


09 










EXX 






1177 


03F8 


7B 










LD 


A.E 


RETRIEVE ORIGINAL PATTERN 


1178 


03F9 


09 










EXX 






1179 


03FA 


E6 


02 








AN0 


2H 


MASK OFF BIT 1 


1180 


03FC 


CA 


OC 04 


c 






JP 


Z.P0RT3 


IS THERE A HOOO ON PORT #1? JUMP IF NO 


1181 


03FF 


OE 


73 








LD 


C.SIO BC 




1182 


0401 


3E 


IS 








LO 


A ,15H~ *" 
A.68H 

sioLtest 


RESET URITE REG 5 TO CORRECT BIT PATTERN 


1183 


0403 


EO 


79 








OUT 




1184 


0405 


3E 


68 








LO 




1185 


0407 


ED 


79 








OUT 




1186 


0409 


CD 


58 04 


c 






CALL 




1187 


040C 






1 


>0RT3 










1188 


040C 


00 


23 








INC 


IX 




1189 


040E 


D9 










EXX 






1190 


040F 


78 










LD 


A,E 


RETRIEVE ORIGINAL PATTERN 


1191 


0410 


09 










EXX 






1192 


0411 


E6 


04 








AND 


4H 


HASK OFF BIT 2 


1193 


0413 


CA 


IB 04 


c 






JP 


Z.P0RT4 


IS THERE A HOOD ON PORT #2? JUMP IF NO 


1194 


0416 


OE 


Bl 








LO 


C.SIO 1 AC 
SI0_TEST 




1195 


0418 


CO 


58 04 


c 






CALL 




1196 


041B 






« 


»0RT4 










1197 


041B 


DO 


23 








INC 


IX 




1198 


0410 


09 










EXX 






1199 


041E 


7B 










LO 


A.E 


RETRIEVE ORIGINAL PATTERN 


1200 


041 F 


09 










EXX 






1201 


0420 


E6 


08 








AND 


8H 


MASK OFF BIT 4 


1202 


0422 


CA 


A3 04 


c 






JP 


Z.SIO DONE 


IS THERE A HOOO ON PORT #3? JUMP IF NO 


1203 


0425 


OE 


B3 








LO 


C ,SI0"1 BC 
SIO TEST 




1204 


0427 


CD 


S8 04 


c 






CALL 




1205 


042A 


C3 


A3 04 


c 






JP 


SIO~DONE 




1207 










*»*******«***«»*«»**«*«*«***««**»«***»********»*««*»«*******«*»»»***»« 


1208 










SUBROUTINE NAME: LOOP_TEST 




1209 




















1210 










This 


subro 


utine is used i 


n the Hood detect section and the modem 


1211 










.external loopback portion c 


f Self Test. 



ERR LINE 


ADDR 


Bl 


B2 B3 


1212 








1213 








1214 








1215 








1216 








1217 








1218 








1219 








1220 








1221 








1222 








1223 








1224 








1225 








1226 








1227 








1228 








1229 








1230 








1231 








1233 


0420 






1235 








1236 








1237 








1238 








1239 








1240 








1241 








1242 








1243 








1244 








1245 








1247 


042D 


06 


04 


1249 


042F 


3E 


15 


1250 


0431 


4ft 




1251 


0432 


ED 


79 


1252 


0434 


7D 




1253 


0435 


ED 


79 


1255 


0437 


4B 




1256 


0438 


3E 


10 


1257 


04 3 A 


ED 


79 


1258 


04 3C 


ED 


78 


1259 


04 3E 


04 




1260 


043F 


CA 


BO 04 
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Upon Entry: 



D register contains the SIO address of the output line 
E register contains the SIO address of the input line 
I register contains the bit position to set in Write 

register 5 in the SIO. 
H register contains the mask to isolate the input line 

in RRO in the SIO. 

Update 8/10/88 Delete reference to de adman timer. 
PROCEDURE: ft deadman timer is first set (approx. 8 millsecs.) 
in the event that the loopback fails. The appropriate output 
line in the SIO is then set (either RTS or DTR) . The 
corresponding input bit is then checked to see if it is also set. 
The same procedure is then followed again with the output bit 
reset and a check that the looped back input bit is also reset. 
The whole sequence is repeated 4 times. 

This routine assumes that the SIO channel for the input line and 
the SIO channel for the output line are the same. 

*SSXXXXX»S**XXXXXXXX***S*SXXXXXXX»X*XXXXXXX**X*X*X**«XX**X*XXS*XXX***X 

L0OP_TEST : 

*x«xxxxxxxxxxxxxx*x»x«x*x««xxxxx**xxxxxxxxxs«xxx*xxxx*xxssxxxx«x*s**s* 
Update 8/10/88 by Randy Stout - RMO Production Engineering 
Since a deadman timer is not necessary here, these lines have 
been deleted. 

ID A.0B7H SET DEADMAN TIMER-PRESC.-2S6 

OUT (CTC 1 C2),ft 

XOR ft 

OUT (CTC 1 C2),fi 

EI ENABLE INTERRUPTS 

xxx»xxxxxxxxxxxx»*»****xxxxx»xx»*»*»«»xxxxxxxxxx*xxxxxx*xxx*xxxxxxxxxx 



LD B,4 



ML00P1 : 



LD 

LD 

OUT 

LD 

OUT 

LD 

LD 

OUT 

IN 

AND 

JP 



ft.lSH 
C,D 

$■* 

(C),A 

C,E 
A.10H 

jj,(C) • 

Z,ST_ERR 



LOOP COUNTERS 

RESET SIO. POINT TO UUS 
OUTPUT CHANNEL TO C REG. 

OUTPUT LINE DESIGNATED BY L REG. 



INPUT CHANNEL TO C REG. 
RESET EXT. STATUS 

READ RRO IN THE SIO 

ISOLATE THE INPUT LINE (CTS OR DCD) 

LOOP UNTIL THE INPUT LINE IS ALSO SET 



ERR LINE 


ADDR 


Bl 


B2 B3 B4 


1262 


0442 


3E 


15 


1263 


0444 


4A 




1264 


0445 


ED 


79 


1265 


0447 


AF 




1266 


0448 


ED 


79 


1267 


044A 


3E 


10 


1268 


044C 


4B 




1269 


044D 


ED 


79 


1271 


044 F 


ED 


78 


1272 


0451 


A4 




1273 


0452 


C2 


BO 04 


1274 


0455 


10 


D8 


1275 








1276 








1277 








1278 


0457 


C9 




1280 








1281 








1282 








1283 








1284 








1285 








1286 








1287 








1288 








1289 








1290 








1291 








1292 








1293 








1295 


0458 






1296 


0458 


16 


AA 


1298 


045A 


06 


08 


1300 


045C 


3E 


B7 


1301 


045E 


03 


E2 


1302 


0460 


AF 




1303 


0461 


03 


E2 


1304 


0463 


FB 
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LD 

LD 

OUT 

XOR 

OUT 

LO 

LD 

OUT 

IN 

AND 

JP 



A.15H 
C.D 

a,i6h 
(d),A 

jj.(C) 
NZ.ST ERR 



CLEARING THE OUTPUT LINE THIS TIME 
OUTPUT CHANNEL TO C REG. 



RESET EXT. STATUS INTERRUPTS 
INPUT CHANNEL TO C REG. 



OJNZ MLOOPl REPEAT ROUTINE UNTIL B REG. -0 
xxxsxxxx Deleted with deadman timer set up - 8/10/88 
DI 

xxxxxxxx«x«x*xx*xxxx»*»xxxxxxx**xx***xxxxxxxxx*xxxxxxxx*x*xxxxxx«xxxx 

RET 



«x*xxx*xxxxx*xxxxx*x*****xxxxx»xxx»*x*xxxxx*xx»x»x*xxxx*xxx*xxxxxxxxxx 
SUBROUTINE NAME: SIO.TEST 

PURPOSE: TO SEND OUT 8 PATTERNS ON THE TX LINE FOR THE PORT, POLL THE 
RX LINE UNTIL EACH PATTERN IS RECEIVED, THEN MATCH THE TWO TO 
CORRECT OPERATION OF THE PORT. IF A TRANSMITTED PATTERN DOES NOT 
MATCH THE RECEIVED PATTERN. A JUMP UILL BE MADE OUT OF THE 
SUBROUTINE TO ST ERR. THIS UILL BE ABNORMAL TERMINATION, NOT A 
RET. 

A DEADMAN TIMER UILL BE SET BEFORE THE TEST BEGINS SO THAT IF 
NOTHING IS RECEIVED, THE TIMER UILL INDICATE ERROR. 

RELEVANT REGISTER USAGE UPON ENTRY: 

C - CONTAINS THE ADDRESS OF THE PORT TO BE TESTED 

»xx*x*»x**x***x**»xx**»**x*xxxxxx*x»*xx*xxxx*xx**xxxxxx»xxx*xxxxxxxx*x 



SIO TEST: 



LO 
LO 



D.OAAH 
B,8 



LD A.0B7H 

OUT fCTC 1 C2),A 

XOR A 

OUT (CTC_1_C2),A 



SET START TEST PATTERN 

NEED TO LOOP 8 TIMES PER PORT 

SET DEADMAN TIMER 



1306 



ERR LINE 


ADOR 


Bl 


B2 B3 B4 
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1307 








; . . . POLL TX BUFFER EMPTY STATUS IN SIO READ REGISTER 


1308 








; UNTIL THE TX BUFFER BECOMES AVAILABLE. THEN OUTPUT 


1309 








: A CHARACTER. ALSO VERIFY THAT SIO RX CHAR AVAILABLE 


1310 








; STATUS IS NOT SET. 


1311 








; NEED TO MAKE SURE THAT DRIVER ENABLES ARE OFF AND 


1312 








; INTERNAL LOOPBACK MUX IS SET TO LOOPBACK. 


1313 










1314 


0464 






MSIO 300: 


1315 


0464 


EO 


78 


IN A,(C) READ SIO READ REGISTER 
BIT 2, A TX BUFFER EMPTY? 


1316 


0466 


CB 


57 


1317 


0468 


28 


FA 


JR Z.MSIO 300 NO 


1318 


046R 


CB 


47 


BIT 0,A RX CHARA AVAIL SET? 


1319 


046C 


C2 


BO 04 C JP NZ.ST ERR YES ... ERROR 


1320 


046 F 


OD 




DEC C DECREMENT TO DATA CHANNEL 


1321 


0470 


EO 


51 


OUT (C),D SEND A CHARACTER 

INC C GO BACK TO CONTROL CHANNEL 


1322 


0472 


OC 




1323 










1324 








; . . . POLL SIO REAO REGISTER UNTIL RX CHAR AVAILABLE 


1325 








; STATUS. INPUT THE CHARACTER AND COMPARE TO 


1326 








TRANSMITTED CHARACTER. 


1327 










1328 


0473 






MSIO 400: 


1329 


0473 


EO 


78 


IN A,JC) READ SIO REAO REGISTER 
BIT 0,A RX CHAR AVAILABLE? 


1330 


0475 


CB 


47 


1331 


0477 


28 


Ffl 


JR Z.MSIO 400 NO, GO POLL AGAIN 

DEC C ~ DECREMENT TO THE DATA CHANNEL 


1332 


0479 


00 




1333 


047A 


EO 


78 


IN A,(C) READ THE DATA BYTE 


1334 


047C 


OC 




INC C GO BACK TO CONTROL CHANNEL 


133S 


047D 


BR 




CP D IS IT THE SAME AS THE TRANSMITTED CHAR 


1336 


047E 


C2 


BO 04 C JP NZ,ST_ERR NO 


1337 


0481 


2F 




CPL CHANGE THE TEST PATTERN 


1338 


0482 


S7 




LD O.A 


1339 


0483 


10 


OF 


DJNZ MSIO 300 GO TRANSMIT ANOTHER CHARACTER 


1340 


0485 


F3 




DI 


1341 


0486 


C9 




RET 


1343 










1344 








; . . . SIO CONTROL WORDS 


1345 
1346 


0487 






&)M_SIO: 


1347 










1348 








; . . . PORT »0 -- SIO #0 CH A 


1349 










1350 


0487 


18 




' OEFB 18H 


1351 


0488 


14 




DEFB 14H 


1352 


0489 


44 




DEFB 44H WR4, X16, 1 STOP, NO PARITY 


1353 


048A 


13 




DEFB 13H 


1354 


048B 


CI 




DEFB 0C1H WR3, 8BIT RX, RX ENABLE 


1355 


048C 


15 




DEFB 1SH 


1356 


0480 


68 




DEFB 01101000B URS, 8BIT TX, TX ENABLE 


1357 


0007 






SIO.SIZ EQU S-R0M_SI0 


ERR LINE 


BOOR 


Bl 


B2 B3 B4 
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1358 








. 


1359 








; . . . PORT #1 — SIO #0 CH B 


1360 










1361 


048E 


18 




DEFB 18H 


1362 


048 F 


14 




DEFB 14H 


1363 


0490 


44 




DEFB 44H 


1364 


0491 


13 




DEFB 13H 


1365 


0492 


CI 




DEFB 0C1H 


1366 


0493 


IS 




DEFB 15H 


1367 


0494 


68 




OEFB 01101000B 


1368 










1369 








• . . . PORT #2 -- SIO #1 CH A 


1370 










1371 


0495 


18 




DEFB 18H 


1372 


0496 


14 




DEFB 14H 


1373 


0497 


44 




DEFB 44H 


1374 


0498 


13 




DEFB 13H 


1375 


0499 


CI 




OEFB 0C1H 


1376 


049A 


IS 




DEFB 1SH 


1377 


049B 


68 




OEFB 68H 


1378 










1379 








; . . . PORT #3 -- SIO #1 CH B 


1380 










1381 


049C 


18 




OEFB 18H 


1382 


0490 


14 




OEFB 14H 


1383 


049E 


44 




OEFB 44H 


1384 


049 F 


13 




DEFB 13H 


1385 


04AO 


CI 




OEFB 0C1H 


1386 


04 A 1 


IS 




OEFB 1SH 


1387 


04A2 


6A 




DEFB 6AH SET RTSB LINE - INTERNAL LOOPBACK MODE 


1388 


04A3 








1390 








SIOJJONE: ;FINISHED SIO TEST 


1392 


04A3 








1393 


04A3 









ERR LINE ADDR 81 B2 B3 B4 
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1396 


04A3 








1397 










1398 










1399 










1400 










1401 










1402 


04A3 


21 


00 


00 


1403 


0406 


36 


EO 




1404 


0408 


21 


00 


CO 


1405 


04AB 


36 


10 




1407 


04A0 


C3 


BF 


04 



SLF PASS' 

'UPON ENTRY HERE. SELF-TEST UAS EXECUTED AND PASSED. A 
VALUE UILL BE PLACED IN THE ST CONO REGISTER TO INDICATE SUCCESS 
AND AN INTERRUPT UILL BE SENT TO THE HOST. SELF TEST UILL THEN 
CALL INIT (CARD INITIALIZATION ROUTINE) . 



LD 
LD 
LD 
LD 



HL.ST COND 
(HL) .PASS 
HL.INT COND 
4HL),IRT CODE 



ADDRESS OF ST COND REGISTER TO HL 
GET VARIABLE INDICATING PASSED TEST 
GET ADDRESS OF INT COND REGISTER 
INTERRUPT HOST THAT SELF TEST DONE 



JP ST_OONE 



1409 
1410 


0480 








1412 
1413 
1414 


04 BO 
04B4 
04B7 


OD 
21 
36 


22 

00 
10 


00 00 
CO 


1416 
1417 
1418 
1419 
1420 










1422 
1423 
1424 


04 B9 
04 BC 
04BD 


01 
CS 
ED 


00 
40 


00 


1426 
1427 


04BF 
04C0 


00 







ST ERR: 



Self-test failed. 

LD (ST COND), IX 
LD HL.TNT CONO 
LD (HL),IN~T CODE 



SAVE ERROR NUH8ER 

SENO HOST ST DONE INTERRUPT 



If the error was the de adman timer timing out, the daisy 
chain must be released by a return from interrupt. However, 
we don't want to return to the point the interrupt was called 
Therefore the address of Init is being pushed before the RETI 
so that it is the address the PC gets after the RETI executes. 



LD BC.INIT 
PUSH BC 
RETI 



ST DONE: NOP 
END 



ASSEMBLER ERRORS 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 
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1 












; SOURCE: &MX4INIT 




2 
3 
4 
5 
6 












PROGRAMMER: LIZ POTEET 














4 CHANNEL 010 MUX (FORDYCE) - INITIALIZATION CODE & MAIN IDLE LOOP 








t 






X**XXXXXXXXXXX*XXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXX* 




7 












« fC) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 
« RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 




8 














9 












« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 




10 












« THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 




11 
12 
13 












XXXXXXXX X* XXX XX X* XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXSX****** 














LIST B 




14 












NAME INIT 




15 












COPY &MX4EQUS 




455 












LIST S 




456 
















457 












PUBLIC INIT.BD.TAB 




458 
















459 












EXTRN TX l.EX l.REC l.RX ERR1.TX O.EX O.REC O.RX ERRO 




460 












EXTRN TX"3,EX"3,REC~3.RX~ERR3.TX"2,EX 2 ,REC~2.RX~ERR2 




461 












EXTRN TMR" ISRThSTINT.BITS 0,BITS~1 .BITS 2.BTTS 3~ 
EXTRN CTC~ERRO,THEAO 0,THE"AD l.TREAD 2.THEAD 3.TTAIL 




462 














463 












EXTRN TTAlL l.TTAIL Z.TTAIL S.CONFG 0\CONFG T.CONFG 2" 
EXTRN C0NFG~3,BD 0,B"0 l.BD I.BD 3 ~ 




464 














465 












EXTRN WR3 0>IR4 0\WRS 0.WR3* 1 .WR"4 1 ,WRS 1.WR3 2.WR4 2.WRS 2 




466 












EXTRN UR3l3,UK4l3,WR5;3,TMRFLG,M0fll_SUB,M0M3_5UB 




468 
















469 












INIT IS CALLED EITHER BY SELF TEST (TWICE - ONCE DURING THE 
NMI TEST AND ONCE WHEN SELF TEST HAS COMPLETED) OR DURING A 




470 














471 












SOFT RESET OF THE CARD 




472 
















473 












THE INTERRUPT VECTORS ARE PLACED HERE BECAUSE THEY WILL BE PUT 




474 












IN HIGH ROM AND NEED TO BE ASEG'ED. THE ACTUAL INITIALIZATION CODE 




475 












BEGINS AFTER THESE VECTOR PLACEMENTS. 




476 












ASEG 




477 












ORG VEC THIS IS 48 LOCATIONS BEFORE THE END OF ROM 




478 








* 




(LAST LOCATION - FFF - IS THE CRC COOE) 




479 












VECTOR LOCATIONS FOR SIO #0 CHANNEL A & B 




481 


1FC0 


00 


00 




E 


DEFUI TX 1 




482 


1FC2 


00 


00 




E 


DEFU EX 1 




483 


1FC4 


00 


00 




E 


DEFU REC 1 




484 


1FC6 


00 


00 




E 


DEFU RX E"RR1 




48S 


1FC8 


00 


00 




E 


DEFW TX~0 




486 


IFCfl 


00 


00 




E 


DEFU EX"0 




487 


1FCC 


00 


00 




E 


DEFU REC 




488 


1FCE 


00 


00 




E 


DEFU RX_E"RR0 




ERR LINE 


ADDR 


Bl 


B2 


B3 64 
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... 


490 












VECTOR LOCATIONS FOR SIO #1 CHANNEL A & B 




492 


1FD0 


00 


00 




E 


DEFU TX 3 




493 


1FD2 


00 


00 




E 


DEFU EX~3 




494 


1F04 


00 


00 




E 


DEFU REC 3 




495 


1FD6 


00 


00 




E 


DEFU RX E"RR3 




496 


1FD8 


00 


00 




E 


DEFU TX"2 




497 


1FDA 


00 


00 




E 


DEFU EX 2 




498 


1FDC 


00 


00 




E 


DEFU REC 2 




499 


1F0E 


00 


00 




E 


DEFU RX E"RR2 




501 


1FE0 








CTCO VEC: 




502 


1FE0 


00 


00 




E 


DEFU CTC ERRO 




503 


1FE2 


00 


00 




E 


DEFU CTC~ERRO 




504 


1FE4 


00 


00 




E 


DEFU HSTTNT 




505 


1FE6 


00 


00 




E 


DEFU CTC ERRO 




506 


1FE8 










OEFS 8 ~ 




S08 


1FF0 








CTC1 VEC: 




509 


1FF0 


00 


00 




E 


DEFU CTC ERRO 




510 


1FF2 


00 


00 




E 


DEFU CTC"ERRO 




511 


1FF4 


00 


00 




E 


DEFU TMR~ISR 




512 


1FF6 


00 


00 




E 


DEFU CTClERRO 




514 












BEGINNING FORMAL INITIALIZATION COOE 




S16 












CSEG 




518 


0000 








INIT: 




519 


0000 


F3 








01 




520 


0001 


AF 








XOR A 




521 


0002 


32 


00 


80 




LO (RESET) , A CLEAR THE RESET REGISTER 

LD A, (TEST) RETRIEVE TEST VALUE 

CP SVAL WAS INIT CALLED IN NMI ROUTINE OF ST? 




522 


0005 


30 


02 


CO 






523 


0008 


FE 


34 








524 


OOOA 


C2 


13 


00 


C 


JP NZ.INIT1 IF NO, JUMP TO INIT1 

LD A.EVAL ELSE, PLACE RETURN VALUE IN TEST 

LD (TEST), A 




525 


0000 


3E 


43 








526 


000 F 


32 


02 


CO 






527 


0012 


C9 








RET -.RETURN FROM SUBROUTINE CALL 




529 
















S30 












SET INTERRUPT MODE AND INITIALIZE STACK POINTER 




531 
532 


0013 








: 


NITl: 




533 


0013 


EO 


SE 






IM 2 RESET CLEARED INTERRUPT MODE 





ERR LINE 


ADDR 


81 


B2 B3 B4 


534 


0015 


31 


00 C8 


535 








536 








S37 








539 


0018 


06 


02 


540 


001A 


OE 


71 


541 


001C 


3E 


18 


542 


001E 






543 


001E 


ED 


79 


544 


0020 


OC 




545 


0021 


OC 




546 


0022 


10 


FA 


548 


0024 


06 


02 


549 


0026 


OE 


Bl 


550 


0028 






551 


0028 


EO 


79 


S52 


002A 


OC 




SS3 


002B 


OC 




554 


002C 


10 


FA 


556 








557 








558 








S59 








560 








561 








562 








563 








564 








S65 








566 








S67 


002E 


3E 


47 


568 


0030 


03 


00 


569 


0032 


03 


01 


570 


0034 


03 


EO 


571 


0036 


03 


El 


S73 


0038 


3E 


OC 


574 


003A 


03 


DO 


S7S 


003C 


03 


Dl 


576 


003E 


D3 


EO 


577 


0040 


03 


El 


578 








579 








580 








581 








582 








S83 
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LD SP,STK_ADDR SET INITIAL STACK ADDRESS IN SP 

RESET ALL SIO CHANNELS 



INIT2: 



INIT3: 



LO 6,2 

LD C.SIO 0_AC 

LD A.18H" 

OUT (C),A 

INC C 

INC C 

DJN2 INIT2 

LD B,2 

LD C,SI0_1_AC 

OUT fC) ,A 

INC C 

INC C 

0JN2 INIT3 



SET UP CTC'S - CTC CHANNEL ■ BAUD RATE GENERATOR FOR PORT 
CHANNEL 1 * BAUD RATE GENERATOR FOR PORT 1 
CHANNELS 2 & 3 UNUSED 

CTC 1 CHANNEL • BAUO RATE GENERATOR FOR PORT 2 
CHANNEL 1 - BAUO RATE GENERATOR FOR PORT 3 
CHANNEL 2 « TIME OUT TIMER (SET LATER) 
CHANNEL 3 UNUSED 

ALL BAUD RATE GENERATORS SET TO DEFAULT BAUD OF 

9600 



LD 

OUT 

OUT 

OUT 

OUT 



A.01000111B 

!CTC CO), A 
CTC"0~C1),A 
CTC'1"C0),A 
CTC~1~C1 ,A 



LOAD CHANNEL CONTROL WORD TO 
BAUO RATE GENERATOR CHANNELS 



TlfC CONSTANT VALUE FOR 9600 BD 



LO A, 12 

OUT (CTC CO), A 

OUT (CTC~0~C1 ,A 

OUT CTC~1~C0 ,A 

OUT (CTOIClj.A 

CONFIGURE INTERRUPT VECTOR ADDRESSES IN THE SIO'S 
(CTC #1 CHANNEL 2 UILL BE SET UP AT THE END OF THE CODE 
WHEN THE TIME-OUT TIMER IS INITIALIZED). 
THE I REGISTER UILL ALSO BE SET IN THE FOLLOWING CODE 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 


584 


0042 


01 


CO 


IF 


585 


0045 


78 






586 


0046 


ED 


47 




588 


0048 


3E 


12 




589 


004A 


03 


73 




590 


004C 


79 






591 


0040 


D3 


73 




593 


004 F 


3E 


12 




594 


0051 


03 


B3 




595 


0053 


79 






596 


0054 


C6 


10 




597 


0056 


03 


63 




599 










600 










601 










602 










603 


0058 


OE 


71 




604 


005A 


IE 


02 




605 


005C 


21 


7B 


00 


606 


005F 








607 


OOSF 


06 


08 




608 


0061 


EO 


63 




609 


0063 


OC 






610 


0064 


OC 






611 


0065 


10 






612 


0066 


20 


F7 




614 


0068 


OE 


Bl 




615 


006A 


IE 


02 




616 


006C 


21 


8B 


00 


617 


006 F 








618 


006F 


06 


08 




619 


0071 


EO 


B3 




620 


0073 


OC 






621 


0074 


OC 






622 


007S 


10 






623 


0076 


20 


F7 




624 


0078 


C3 


BO 


00 


625 










626 










627 










628 










629 










630 










631 










632 











LD BC.VEC 
LO A.B 
LO I, A 
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RETRIEVE THE BEG. VECTOR AOORESS 
HIGH VECTOR AOORESS TO I REGISTER 
PROGRAM UR #2 IN SIO #0 



LD A.12H 

OUT (SIO BC),A 

LO A ,C " ~ 

OUT (SIO_0_BC),A 

LO A.12H 

OUT (SIO 1 BC),A 

LD A.C " " 

ADD A.10H 

OUT (SIO 1 BC),A 



PROGRAM ALL SIO CHANNELS 
PREVIOUSLY SET) 



INIT4: 



INIT5: 



LD 
LO 
LO 

LO 

OTIR 

INC 

INC 

DEC 

JR 

LO 
LD 
LD 

LD 

OTIR 

INC 

INC 

DEC 

JR 

JP 



C.SIO 0_AC 

E.2 

HL,SIO_TAB 

B,TA8_SIZ 

C 
C 
E 

NZ.INIT4 

C.SIO 1 AC 

E,2 

HL,SI0_TAB+16 

B,TAB_SIZ 

C 
C 

E 

NZ.INIT5 

JMP 



PROGRAM UR #2 IN SIO #1 



VECTOR ADDRESS TO A REG 

GET TO NEXT SET OF VECTOR AODRESSES 



(UR 2 IN CHANNEL B OF BOTH SIO'S IS 
PROGRAM ALL SIO CHANNELS 

INCREMENT TO NEXT PORT 



FINISH YET? 
NO 

PROGRAM SIO 1 CHANNELS A ANO 6 

INCR. PAST CHAN.O&l DATA IN SIO TAB 



PUT IN THE ACTUAL SIO BYTES AND THE INTERRUPT VECTOR ADORESSES 
GOT THE PRECEEDING STUFF FROM SELF TEST P. 22. DONT FORGET TO 
SET THE CTC CHANNEL 2 TIMER AT THE END OF THIS ANO TO CLEAR OUT 
RAM. 

SIO CONTROL UORDS 



ERR LINE 


ADDR 


Bl 


62 


B3 B4 
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633 










; . . .PORT #0 - SIO #0 CHANNEL A 




634 
635 


007B 








SIO TAB: 




636 


0078 


14 






OEFB 14H POINTER TO URt4 


^ 


637 


007C 


44 






DEFB 44H X16 CLOCK. 1 STOP BIT 
OEFB 13H POINTER TO URt3 




638 


007D 


13 








639 


007E 


CI 






OEFB 0C1H RX ENABLE, 8 BITS PER CHARACTER 
OEFB 1SH POINTER TO URtS 




640 


007F 


15 








641 


0080 


68 






OEFB 68H TX ENABLE, 8 BITS PER CHARACTER 
DEFB 11H POINTER TO URtl 




642 


0081 


11 








643 


0082 


13 






OEFB 13H EXT INT EN.TX INT EN, INT ON RX CHAR 




644 


0008 








TAB_SIZ EQU $-SIO_TAB 




645 














646 










;. . .PORT #1 - SIO #0 CHANNEL B 




647 














648 


0083 


14 






' DEFB 14H POINTER TO UR*4 




649 


0084 


44 






DEFB 44H X16 CLOCK. 1 STOP BIT 
DEFB 13H POINTER TO UR#3 




650 


0085 


13 








6S1 


0086 


CI 






OEFB 0C1H RX ENABLE. 8 BITS PER CHARACTER 
DEFB 1SH POINTER TO URtS 




652 


0087 


15 








6S3 


0088 


68 






DEFB 68H TX ENABLE, 8 BITS PER CHARACTER 
DEFB 11H POINTER TO URtl 




654 


0089 


11 








655 


008A 


17 






DEFB 17H TX & EXT INT EN, VECTOR, INT ON RX 




656 














657 










;. . .PORT #2 - SIO #1 CHANNEL A 




658 














659 


0088 


14 






' DEFB 14H POINTER TO URt4 




660 


008C 


44 






DEFB 44H X16 CLOCK. 1 STOP BIT 
OEFB 13H POINTER TO URt3 




661 


0080 


13 








662 


008E 


CI 






DEFB 0C1H RX ENABLE. 8 BITS PER CHARACTER 
DEFB 1SH POINTER TO URtS 




663 


008F 


15 








664 


0090 


68 






OEFB 68H TX ENABLE. 8 BITS PER CHARACTER 
OEFB 11H POINTER TO URttl 




66S 


0091 


11 








666 


0092 


13 






DEFB 13H EXT & TX INT EN, INT ON RX CHAR 




667 














668 










;. . .PORT #3 - SIO #1 CHANNEL B 




669 














670 


0093 


14 






' DEFB 14H POINTER TO URt4 




671 


0094 


44 






DEFB 44H X16 CLOCK. 1 STOP BIT 
OEFB 13H POINTER TO URt3 




672 


0095 


13 








673 


0096 


CI 






DEFB 0C1H RX ENABLE. 8 BITS PER CHARACTER 
DEFB 15H POINTER TO URtS 




674 


0097 


IS 








675 


0098 


68 






DEFB 68H TX ENABLE, 8 BITS PER CHARACTER 
DEFB 11H POINTER TO URtl 




676 


0099 


11 








677 


0090 


17 






DEFB 17H EXT & TX INT EN, VECTOR, INT ON RX 




679 










;BAUD RATE TABLE - THIS TABLE CONTAINS THE PRESCALE VALUE AND THE 




680 










: CHANNEL CONTROL UORD FOR EACH OF THE 17 BAUD RATES SUPPORTED BY 




681 










; THIS CARD. THE FIRST ENTRY FOR EACH BAUD RATE IS THE CONTROL UORD 




682 










; AND THE SECOND THE TIME CONSTANT VALUE. 




ERR LINE 


ADDR 


Bl 


B2 


B3 84 
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684 


0098 








BD TAB: 




685 


009B 


27 






DEFB 27H BAUD RATE « 50 




686 


009C 


12 






DEFB 18 




687 


0090 


07 






OEFB 07H ■ 75 




688 


009E 


CO 






DEFB 192 




689 


009 F 


07 






DEFB 07H »110 




690 


OOAO 


83 






DEFB 131 




691 


00ft 1 


07 






DEFB 07H "134.5 




692 


0OA2 


6B 






OEFB 107 




693 


0OA3 


07 






DEFB 07H -150 




694 


0OP4 


60 






DEFB 96 




695 


00A5 


07 






DEFB 07H -300 




696 


00A6 


30 






OEFB 48 




697 


0OA7 


47 






OEFB 47H -600 




698 


00A8 


CO 






DEFB 192 




699 


0OA9 


47 






DEFB 47H -900 




700 


OOAA 


80 






DEFB 128 




701 


OOAB 


47 






DEFB 47H "1200 




702 


OOAC 


60 






OEFB 96 




703 


OOAD 


47 






DEFB 47H «1800 




704 


OOAE 


40 






DEFB 64 




705 


OOAF 


47 






OEFB 47H "2400 




706 


OOBO 


30 






OEFB 48 




707 


0081 


47 






DEFB 47H -3600 




708 


0OB2 


20 






OEFB 32 




709 


00B3 


47 






DEFB 47H -4800 




710 


00B4 


18 






DEFB 24 




711 


00B5 


47 






OEFB 47H "7200 




712 


00B6 


10 






DEFB 16 




713 


00B7 


47 






OEFB 47H -9600 




714 


00B8 


OC 






OEFB 12 




715 


0OB9 


47 






DEFB 47H -19.2K 




716 


OOBA 


06 






DEFB 6 




717 


OOBB 


47 






OEFB 47H -38. 4K 




718 


OOBC 


03 






OEFB 3 




720 
721 










; INITIALIZE RAM TO O'S - REASON: BECAUSE SO MANY OF THE VARIABLES 




722 










; PLUS THE 8IT rWP NEED TO BE - TO ZERO. EXCEPTION: THE ST_C0N0 




723 










• REGISTER IS NOT CLEARED BECAUSE IT CONTAINS THE VALUE OF 




724 










; THE RESULT OF SELF TEST 




725 
726 


OOBO 


3E 


00 




JHP: LD A,0 




727 


OOBF 


21 


02 


CO 


LO HL, RAM BEG 




728 


0OC2 


77 






LO (HI), A" Clear beginning location in RAM 
LD BC.ST COND-RAtl BEG-1 Stop at ST_COND register 




729 


00C3 


01 


20 


07 




730 


0OC6 


11 


03 


CO 


LD DE.RAH BEG* I 




731 


00C9 


ED 


BO 




LOIR 




732 


OOCB 


21 


24 


C7 


LO HL.ST C0N0*1 




733 


OOCE 


77 






LD (HL),A" Clear location 1 past ST_COM) 
LD BC,0C7FFH-ST CONO-1 Stop at end of RAM 




734 


OOCF 


01 


OB 


00 




735 


0002 


11 


25 


C7 


LD DE.ST C0N0*2~ 




736 


0005 


EO 


BO 




LDIR 





ERR LINE 


ADDR 


Bl 


B2 


83 B4 




738 










; 


740 


00D7 


3E 


FF 






741 


00D9 


32 


00 


00 


E 


742 


OOOC 


32 


00 


00 


E 


743 


OODF 


32 


00 


00 


E 


744 


00E2 


32 


00 


00 


E 


746 










» 


748 


OOES 


3E 


CI 






749 


00E7 


32 


00 


00 


E 


7S0 


OOEfl 


32 


00 


00 


E 


751 


OOED 


32 


00 


00 


E 


752 


00 FO 


32 


00 


00 


E 


753 


00F3 


3E 


44 






754 


OOFS 


32 


00 


00 


E 


755 


00 F8 


32 


00 


00 


E 


756 


00 FB 


32 


00 


00 


E 


757 


00 FE 


32 


00 


00 


E 


758 


0101 


3E 


68 






759 


0103 


32 


00 


00 


E 


760 


0106 


32 


00 


00 


E 


761 


0109 


32 


00 


00 


E 


762 


010C 


32 


00 


00 


E 


764 










. 


765 










i 


767 


010F 


3E 


30 






768 


0111 


32 


00 


oo 


E 


769 


0114 


32 


00 


00 


E 


770 


0117 


32 


00 


00 


E 


771 


OUA 


32 


00 


00 


E 


773 


OHO 


3E 


OF 






774 


011F 


32 


00 


00 


E 


775 


0122 


32 


00 


00 


E 


776 


012S 


32 


00 


00 


E 


777 


0128 


32 


00 


00 


E 


779 












780 












781 
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INITIALIZE BITS MASKS (PARITY MASK) TO FF FOR EIGHT BITS PER CHARACTER 



LO 
LD 
LD 
LO 
LO 



A.OFFH 
(BITS 0),A 
(BITS~1),A 
BITS~2),fi 
(BITS~3),A 



; INITIALIZE THE SIO WRITE REGISTER VARIABLES - MATCH ACTUAL WR VALUES 



LO 
LO 
LD 
LD 
LD 
LD 
LD 
LD 
LO 
LD 
LD 
LD 
LD 
LD 
LD 



A.0C1H 

(WR3 0) 

(UR3~1 

(WR3~2 

(WR3~3 

A.44R" 

(WR4 0) 

WR4~1 

?WR4~2 

(WR4~3 

A,68R" 

(WRS 0) 

WRS~1 

WRS~2 ) 

WR5~3 



{INITIALIZE CONFIGURATION ANO BAUO RATE REGISTERS (NO PARITY, 1 STOP BIT 
8 BITS PER CHAR., 9600 BAUD 



LD 
LO 
LD 
LD 
LD 

LD 
LD 
LD 
LO 
LD 



A .BEG CONF 

iCONFG" 0),A 
C0NFG~1 ,A 
C0NFG"2),A 
C0NFGI3),A 

A.BEG BD 
(8D_0T,A 

BO 1),A 
(B0_2),A 

BD 3), A 



INIT OATA FOR CONFIG. REG. 



INIT OATA FOR BAUD REGISTER 



CHECK THE MODEM LINES AND SET MODEM TO REFLECT CURRENT STATUS 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 




783 


0128 


OE 


71 






784 


0120 


ED 


40 






785 


012F 


CD 


00 


00 


E 


786 


0132 


OE 


73 






787 


0134 


EO 


40 






788 


0136 


CO 


00 


00 


E 


790 












791 










; 


792 












793 


0139 


3E 


80 






794 


013B 


32 


02 


80 




796 












797 












798 












799 


013E 


3E 


FO 






800 


0140 


D3 


EO 






801 


0142 


3E 


23 






802 


0144 


03 


E2 






803 


0146 


AF 








804 


0147 


32 


00 


00 


E 


806 












807 












808 












809 












810 


014A 


3E 


EO 






811 


014C 


03 


DO 






812 


014E 


3E 


C7 






813 


0150 


D3 


02 






814 


0152 


3E 


01 






81S 


0154 


03 


02 
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LD C.SIO AC 
IN B, (C)~ 
CALL MDM3 SUB 
LD C,SI0"_0_8C 
IN B,(C) 
CALL M0M1 SUB 



RETRIEVE CONTENTS OF READ REG. 
CHECK STATUS OF CTS.RR.OM LINES 



CHECK STATUS OF IC LINE 



RELEASE SEMAPHORE REGISTER - LEAVE BIT 7*0 



LO A.80H 

LD (SEM_REG),A 



WRITING A PATTERN TO SEM-REG 



INITIALIZE CTC INTERRUPT VECTOR AND SET TIMER FLAG TO ZERO 



LD A..L0W.CTC1 VEC 

OUT {CTC 1 CO), ft" 

LO H,0OT00"011B 

OUT (CTC 1 C2),A 

XOR A 

LD (TMRFLG) ,A 



RETRIEVE VECTOR ADDRESS FOR CTC 
INTERRUPT VECTOR TO CH. #0 
OISABLE TIMER INTERRUPTS 



INDICATES THAT THE TIMER IS OFF 



INITIALIZE CTC-0 CH 2 FOR HOST INTERRUPTS - THE CHANNEL CONTROL WORD 
IS PROGRAMMED FOR: INTERRUPT, COUNTER OPER., NEG. EDGE TRIG., 



LO 

OUT 

LO 

OUT 

LD 

OUT 



A..L0W.CTC0 VEC 
(CTC COl.ff 
A.110"00"lli6 
(CTC C2),A 
A,l 
(CTC_0_C2),A 



RETRIEVE VECTOR ADDRESS FOR CTC 
INTERRUPT VECTOR TO CH. #0 
PROGRAM CHANNEL CONTROL WORD 

TIME CONSTANT VALUE 



817 0156 FB 



EI 



REINABLE INTERRUPTS 



819 
820 
821 

823 
824 
825 
826 



0157 
015A 
0158 
015C 



21 02 CO 

7E 

23 

3E C8 



:THIS IS THE MAINLINE IDLE LOOP THAT THE CARD OPERATES IN WHILE 
{WAITING FOR AN INTERRUPT. THIS LOOP ONLY CYCLES FROM ADDRESSES 
;C002 - C7FF AS THAT IS ALL THE RAM AVAILABLE ON THIS CARO 



This routine facilitates 1611 debugging 



MAIN: 


LO HL.0C002H 


MAIN2: 


LD A,(HL) 




INC HL 




LO A.0C8H 



ERR LINE ADDR 81 B2 B3 B4 



827 
828 
829 



OlSE 
015F 
0161 



831 0164 



BC 

20 F9 
C3 57 01 
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CP 
JR 
JP 

ENO 



H Has it reached C800H yet? 

NZ.MAIN2 No. Continue cycling 

MAIN Yes. Reload the starting RAM address 



ASSEMBLER ERRORS « 



ERR LINE 


ADDR Bl B2 B3 B4 
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1 




SOURCE : 


&nx VAR 




2 
3 

4 
S 
6 




PROGRAMMER :~LIZ POTEET 






4 CHANNEL DIO MUX (FOROYCE) - VARIABLES (DSEG) 






xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxsxxxxxxxxxxxxxxxxxxxxx 




7 




« (CI 
* RESE 


COPYRIGHT HEULETT-PACKARD COMPANY 1983. ALL RIGHTS 




8 




RVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 




9 




« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 




10 




* THE 


PRIOR WRITTEN CONSENT OF HEULETT-PACKARD COMPANY. 




11 
12 
13 




xxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxsxx 








LIST B 




14 
IS 






NAME MX_VAR 




16 






PUBLIC TEST, TONO, T0N1.T0N2.TON3 

PUBLIC RBRK O.RBRK l.RBRK 2. RBRK 3.TMPTAB 

PUBLIC UR3 0",UR3 lTUR3 2 ,GJR3 3 ,Uft"4 0.UR4 1 ,UR4 2 ,UR4 3 

PUBLIC UR5~0.UR5~1,UR5~2,URS 3.TMRFLG 

PUBLIC BIT~MAP,RHEAD 07RHEAD~1 ,RHEAD 2.RHEAD 3, RTAIL 




17 








18 
19 








20 








21 






PUBLIC RTATL 1,RTAIL~2,RTAIL~3,THEAD"0,THEAD~1,THEAD~2 




22 






PUBLIC THEA0~3.TTAIL~0.TTAIL~1,TTAIL 2,TTAIL~3,STAT ff 




23 






PUBLIC STAT T.STAT 2TSTAT 3,C"0NFG O.CONFG l.CONFG 2~ 




24 






PUBLIC C0NF5 3.BD 5.BD 1,B"D 2.BD J.MODM IR.MODM OUT 
PUBLIC MODM RASK.CnND TAB , ICR TAff.ST CORD 
PUBLIC BITSlO.BITS.l ,B"ITS_2,BTTS_3 




25 








26 
27 
28 












DSEG 




29 










30 




CARD VARIABLES - OCCUPY RAM ADDRESSES C002 - C1FF 




32 


0000 TEST 


DEFS 1 General purpose - Used in Self Test 




33 


0001 TONO 


DEFS 1 TX ISR: ^Transmitter on; 0«tr«nsm. 


off 


34 


0002 T0N1 


DEFS 1 " Port 1 




3S 


0003 T0N2 


OEFS 1 " Port 2 




36 


0004 T0N3 


DEFS 1 " Port 3 




38 


0005 STAT 


DEFS 1 RX ISR's - bit pattern for status re 
DEFS 1 z Port 1 


gister 


39 


0006 STAT~1 




40 


0007 STAT~2 


DEFS 1 " Port 2 




41 


0008 STAT~3 


DEFS 1 " port 3 




43 


0009 RBRK 


DEFS 1 EXT/STAT ISR's - End of break flag - 


Pt 


44 


OOOfl RBRK~1 


DEFS 1 (1=START OF BREAK DETECTED) 


Pt 1 


45 


OOOB R8RK~2 


DEFS 1 


Pt 2 


46 


OOOC RBRO 


DEFS 1 


Pt 3 


48 


0000 UR3 


DEFS 1 SIO WRITE REGISTER VALUES 




49 


OOOE U)R4~0 


DEFS 1 




50 


OOOF WRSIO 


DEFS 1 




ERR LIKE 


ADDR Bl B2 83 B4 
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52 


0010 UR3 1 


DEFS 1 




53 


0011 UR4~1 


DEFS 1 




54 


0012 WRS^l 


OEFS 1 




56 


0013 UR3 2 


DEFS 1 




57 


0014 UR4~2 


DEFS 1 




58 


0015 WR5I2 


DEFS 1 




60 


0016 UR3 3 


DEFS 1 




61 


0017 WR4~3 


DEFS I 




62 


0018 WR5I3 


DEFS 1 




64 


0019 TMRFLG 


DEFS 1 Flag which indicates if timer is off or on 


66 


OOlfl THPTAB 


OEFS 4 Temporary Table for CMNO_TAB data 




68 


001E BITS 


DEFS 1 Masks off parity bits on RX chars - 


port 


69 


00 IF BITS~1 


DEFS 1 Masks off parity bits on RX chars - 


port 1 


70 


0020 BITS~2 


DEFS 1 Masks off parity bits on RX chars - 


port 2 


71 


0021 BITSI3 


DEFS 1 Masks off parity bits on RX chars - 


port 3 


73 




SHARED 


VARIABLES - OCCUPY RAM ADDRESSES C700 - C76FH 




75 






ASEG 




76 






ORG OC600H 




78 


C600 BITJ1AP 


DEFS 256 




80 


C700 RHEAD 


DEFS 1 




81 


C701 RHEAD~1 


DEFS 1 




82 


C702 RHEAD~2 


DEFS 1 




83 


C703 RHEAD_3 


DEFS 1 




85 


C704 RTAIL 


DEFS 1 




86 


C70S RTAIL~1 


DEFS 1 




87 


C706 RTAIL 2 


DEFS 1 




88 


C707 RTAILI3 


OEFS 1 




90 


C708 THEAD 


DEFS 1 




91 


C709 THEAD 1 


OEFS 1 




92 


C70A THEAD 2 


DEFS 1 





ERR LINE flDOR Bl B2 B3 B4 280 ASSEMBLER VER 3. OUR PAGE 

93 C70B THEftD_3 DEFS I 

95 C70C TTfllL DEFS 1 

96 C70D TTfilL 1 DEFS 1 

97 C70E TTAIL~2 DEFS 1 

98 C70F TTAIII3 DEFS 1 

100 C710 CONFG DEFS 1 

101 C711 BD_0 " OEFS 1 

103 C712 CONFG 1 DEFS 1 

104 C713 BD_1 ~ DEFS 1 

106 C714 CONFG 2 DEFS 1 

107 C715 BD_2 " DEFS 1 

109 C716 CONFG 3 DEFS 1 

110 C717 BD_3 " DEFS 1 

112 C718 riOOn IN DEFS 1 

113 C719 MODrTOUT DEFS 1 

114 C71A MODrTtlRSK DEFS 1 

115 C71B O1N0~TRB DEFS 4 

116 C71F ICR TAB DEFS 4 

117 C723 STJCOND DEFS 1 

119 C724 ENO 
ASSEMBLER ERRORS * 



ERR LINE ADDR Bl B2 B3 B4 

1 

2 

3 

4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

455 

456 

457 

458 

459 

460 

461 
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SOURCE: &MX4RX 
PROGRAMMER: LIZ POTEET 

4 CHANNEL DIO MUX (FORDYCE) - RECEIVE ISR'S FOR PORTS THRU 3 

*x*xxxxxxxx*xxx*sxxxx*xxxxxxxxxxsxxx*xxxxxxx *********** X******* 
« (C) COPYRIGHT HEWLETT -PACKARO COMPANY 1983. ALL RIGHTS 

• RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 

» REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 

* THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
**x***xxxxxxxxs«xxs*****sx*sxx*xxx*x***xs**x***xxxxxx*xxx*xxx*x 

LIST B 

NAME RX ISR 

COPY &MK4EQUS 

LIST S 

PUBLIC REC_0,REC_1 ,REC_2,REC_3 

EXTRN STAT O.STAT 1 .STAT 2, STAT 3. RHEAD 0. RHEAD 1 .RHEAD 2 
EXTRN RHEAD* 3.RTATL O.RTfflL l.RlAIL 2.RTAIL 3.BTT MAP 
EXTRN ICR TffB.BITS J,8ITS_lTBITS 2,B"ITS 3 " 



463 



465 








466 








467 








468 








469 








470 








471 








472 








473 








475 








477 


0000 


09 




478 


0001 


08 




479 


0002 






480 








481 








482 








483 








484 


0002 


3A 00 00 


E 


485 


0005 


47 




486 


0006 


3A 00 00 


E 



CSEG 

xx*xxxx*x*xx*xx*xxxxx*xx****«**xxs**««****sx**xsxxxxx**«x*x*xxxx 
DESCRIPTION: This file contains the Receive Interrupt Service 

Routines which are invoked when the UART has received a character 

at one of the four ports. The entry points for the four routines 

are: REC_0, REC 1, REC 2, and REC_3. 

All four routines art basically the same and call the macro, 

RECISR. A description of this macro may be found in the file 

&MX4EQUS . 
xxxx****x(*xx**xxxxx*xxxxxx***sx**xxx***xxxxxx*x*x**xx*xxxxxxxx*xxxxx 

RECEIVE ISR FOR PORT #0 

REC EXX CAUTION! IF THIS ISR CAN BE INTERRUPTED 

EX AF.AF' USE PUSH & POP OR MAY LOSE REG. CONTENTS 
RECISR RHEAD 0,RTAIL_0,SIO AO, PORTO ,RX_BASEO,STAT_0,BITS_0 
♦ ; 

♦;CHECK IF BUFFER IS FULL - COMPARE HEAD ANO TAIL POINTERS 
♦;IF EQUAL THEN RETRIEVE CHAR. ANO DISCARD. SET BIT IN STATUS WORD 



LO 
LD 
LD 



A,(RHEAO_0) 
Aj(RTAIL_0) 



Retrieve value of head pointer 
Retrieve value of tail pointer 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 


487 


0009 


3C 






488 


OOOA 


3C 






489 


OOOB 


B8 






490 


OOOC 


20 


OA 




491 


OOOE 


DB 


70 




492 


0010 


21 


00 


00 


493 


0013 


CB 


DE 




494 


0015 


C3 


58 


00 


49S 










496 










497 










498 










499 


0018 


OB 


70 




500 


001A 


21 


00 


00 


501 


001D 


A6 






502 


001E 


4F 






503 


001F 


06 


00 




504 


0021 


21 


00 


00 


SOS 


0024 


09 






506 


0025 


CB 


46 




507 


0027 


CA 


43 


00 


508 










S09 










510 










511 


002A 


3A 


02 


80 


512 


002D 


CB 


7F 




513 


002F 


C2 


2A 


00 


514 










SIS 










S16 










517 


0032 


21 


00 


CO 


S18 


0035 


CB 


C6 




S19 


0037 


21 


00 


00 


520 


003A 


11 


00 


00 


521 


003D 


19 






522 


003E 


CB 


CE 




523 


0040 


32 


02 


80 


524 










52S 










526 










527 


0043 


26 


C5 




528 


0045 


3A 


00 


00 


S29 


0048 


6F 






530 


0049 


71 






531 


004A 


23 






S32 


0048 


3A 


00 


00 


533 


004E 


77 






S34 


004 F 


AF 






S3S 


0050 


32 


00 


00 


S36 


0053 


7D 






537 


00S4 


3C 






S38 


OOSS 


32 


00 


00 


539 










S40 


00S8 


09 
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INC 

INC 

CP 

JR 

IN 

LD 

SET 

JP 



A 

A 

B 

NZ,??0001 

A,(SI0 AD) 

HL.STAT ff 

??0004 



Add 2 to tail pointer 
Compare the two pointers 

If pointers art not equal, jump 
Retrieve character and discard 
Get address of Status byte 
Set bit 3 in the Status byte 
Jump to exit routine 



♦ RETRIEVE CHARACTER AND 00 BIT MAP CHECK. IF SPECIAL CHARACTER (BIT 

♦ ;FOR THE PORT IS SET), SENO A SPECIAL CHARACTER INTERRUPT TO HOST. 



►*?0001: IN A,(SIO_0 AD) 

► LO HL.BITS 

► ANO (HL) 

► LO C,A 

► LD B,0 

► LD HL.BIT MAP 

► ADD HL.BC 

► BIT PORTO, (HL) 

► JP Z,??0002 



RETRIEVE CHARACTER FROM UART 

Mask off parity bits 

Obtaining a 2-reg. quantity 
Get address of Bit Map base 
Bit Map Base+char. -effective address 
Is the bit for the port « 1? 
Jump if not a special character 



♦•BIT MAP POSITION SET - CHECK SEMAPHORE REG. BEFORE SENDING INTERRUPT 



►f?0003: 



LD A,(SEM_REG) Retrieve address of semaphore register 



BIT 7,A 

JP NZ,??0003 



If bit 7*0, continue, else check again 



♦•SEMAPHORE REGISTER SET - SENO INTERRUPT TO HOST & RELEASE SEM_REG 



LD HL.INT CONO 

SET PORTO, (RL) 

LD HL.ICR TAB 

LO DE, PORTO 

ADD HL.DE 

SET SPEC ICR.(HL) 

LD (SEM_REG) ,A 



Retrieve address of Int Cond register 
Set bit for port specific interrupt 

Retrieve address of ICR TAB base 

Get index into ICR tab - port specific 

index ♦ ICR TAB base » effective address 

Set correct bit in ICR TAB 

Clear bit 7 of Sem. reg. by writing to it 



♦;PUT CHARACTER IN FIFO ANO UPDATE THE TAIL POINTER 



►$?0002: LD H.RX BASEO 

►■ LD A,fRTAir_0) 

► LD L.A 

► LD (HL),C 

► INC HL 

► LD A, (STAT 0) 

► LD (HL),A 

► XOR A 

► LO (STAT 0),A 

► LD A.L 
i- INC A 

► LO (RTAIL_0) ,A 

►i?0004 EXX 



Get upper byte of FIFO base 
Get the value of the tail index 
Lower byte of tail pointer to 1 register 
Put character into buffer 
Increment address for status byte 
Retrieve status byte 
Put status byte into buffer 

Clear status register 
Put tail pointer into A reg. 
Update pointer for next char. 
Update tail pointer index 



ERR LINE 


AODR 


Bl 


B2 


B3 B4 
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541 


0059 


08 








•♦• 


EX OF.AF* 


S42 


0050 


FB 








+ 


EI 


543 


OOSB 


ED 


40 






♦ 


RETI 


545 












; RECEIVE ISR FOR PORT #1 


547 


OOSD 


09 








REC_1 


EXX 


548 


005E 


08 










EX AF.AF' 


549 


005F 












RECISR RHEA0_1,RTAIL_1 ,SI0_O_BD,P0RTl ,RX_B0SE1 ,ST0T_1 ,BITS_1 


550 












+ ■ 




551 












♦;CHECK 


IF BUFFER IS FULL - COMPORE HEAD OND TOIL POINTERS 


552 












♦;IF EQUAL THEN RETRIEVE CHOR. OND DISCARD. SET BIT IN STATUS UORD 


553 












♦; 




554 


OOSF 


30 


00 


00 


E 


•♦• 


LD 0,(RHEOD 1) Retrieve value of head pointer 


5SS 


0062 


47 








♦ 


LO B,A 


5S6 


0063 


30 


00 


00 


E 


♦ 


LD 0,(RTAIL 1) Retrieve value of tail pointer 


SS7 


0066 


3C 








♦ 


INC 


558 


0067 


3C 








+ 


INC Odd 2 to tail pointer 


559 


0068 


B8 








♦ 


CP B Compare the two pointers 

JR NZ,??OOOS If pointers are not equal, jump 


560 


0069 


20 


00 






♦ 


561 


006B 


OB 


72 






•f 


IN O.fSIO BO) Retrieve character and discard 


562 


0060 


21 


00 


00 


E 


♦ 


LD HL.STOTT Get address of Status byte 


563 


0070 


CB 


DE 






♦ 


SET 3.(HL) ~ Set bit 3 in the Status byte 
JP ??0008 Jump to exit routine 


S64 


0072 


C3 


B5 


00 


C 


♦ 


565 












♦ ; 




566 












♦RETRIEVE CHARACTER OND DO BIT MOP CHECK. IF SPECIOL CHARACTER (BIT 
♦ ;FOR THE PORT IS SET), SEND A SPECIAL CHARACTER INTERRUPT TO HOST. 


567 












S68 

569 


0075 


DB 


72 






♦4?O0O5: 


IN A,(SIO BD) RETRIEVE CHARACTER FROM UART 
LD HL.BITS 1" " 


S70 


0077 


21 


00 


00 


E 


♦ 


S71 


0070 


06 








♦ 


AND (HL) Mask off parity bits 
LO C,A 


572 


007B 


4F 








♦• 


573 


007C 


06 


00 






♦ 


LO B,0 Obtaining a 2-reg. quantity 


574 


007E 


21 


00 


00 


E 


♦ 


LD HL.BIT MAP Get address of Bit Map base 


575 


0081 


09 








♦ 


ADO HL.BC ~ Bit Map Base+char .-effective address 

BIT PORTl.(HL) Is the bit for the port * 1? 

JP Z,??Oo06 Jump if not a special character 


576 


0082 


CB 


4E 






♦ 


S77 


0084 


CO 


00 


00 


C 


♦ 


578 












♦ • 




579 












+;BIT HOP POSITION SET - CHECK SEMAPHORE REG. BEFORE SENDING INTERRUPT 


S80 
S81 


0087 


30 


02 


80 




♦f?0007: 


LO A.(SEMREG) Retrieve address of semaphore register 


582 


0080 


CB 


7F 






•♦• 


BIT 7, A ~ If bit 7=0, continue, else check again 
JP NZ,??0007 


S83 


008C 


C2 


87 


00 


C 


+ 


584 












♦ • 




585 












♦jSEMOPHORE REGISTER SET - SEND INTERRUPT TO HOST & RELEOSE SEt1_REG 


586 












♦ ; 




587 


008 F 


21 


00 


CO 




•* 


LO HL.INT COND Retrieve address of Int Cond register 
SET PORTl.fRLJ Set bit for port specific interrupt 
LD HL.ICR TAB Retrieve address of ICR TAB base 


S88 


0092 


CB 


CE 






4- 


589 


0094 


21 


00 


00 


E 


♦ ■ 


590 


0097 


11 


01 


00 




♦ 


LD DE.PORTl Get index into ICR tab - port specific 


ERR LINE 


RDDR 


Bl 


B2 


B3 B4 
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591 


0090 


19 








♦ 


ADO HL.DE index ♦ ICR TAB base * effective address 
SET SPEC ICR.(HL) Set correct bit in ICR TAB 


592 


009B 


CB 


CE 






♦ 


593 


009D 


32 


02 


80 




•♦• 


LD (SEM REGJ.O Clear bit 7 of Sem. reg. by writing to it 


594 












♦ ; 




595 












♦;PUT CHARACTER IN FIFO AND UPDATE THE TOIL POINTER 


S96 
597 


OOflO 


26 


C4 






♦i?0006: 


LD H.RX BASE1 Get upper byte of FIFO base 


S98 


0002 


30 


00 


00 


E 


♦ 


LD 0,(RTAIU 1) Get the value of the tail index 

LD L,0 Lower byte of tail pointer to 1 register 


599 


0005 


6F 








♦ 


600 


0006 


71 








♦ 


LD (HL) ,C Put character into buffer 


601 


0007 


23 








♦ 


INC HL Increment address for status byte 


602 


0008 


30 


00 


00 


E 


•♦• 


LD A, (STAT 1) Retrieve status byte 


603 


OOOB 


77 








♦ 


LD (HL) ,0 ~ Put status byte into buffer 
XOR 


604 


OOOC 


OF 








+ 


605 


0000 


32 


00 


00 


E 


♦ 


LO (STAT 1),A Clear status register 

LD 0,L Put tail pointer into reg. 


606 


OOBO 


70 








♦ 


607 


0OB1 


3C 








♦ 


INC A Update pointer for next char. 


608 


00B2 


32 


00 


00 


E 


♦ 


LD (RTAIL_1),A Update tail pointer index 


609 
610 


0065 


09 








♦ •j?0008 


EXX 


611 


0086 


08 








♦ 


EX AF.AF' 


612 


00B7 


FB 








♦ 


EI 


613 


00B8 


ED 


40 






♦ 


RETI 


615 












; RECEIVE ISR FOR PORT #2 


617 


OOBO 


09 








REC_2 


EXX 


618 


OOBB 


08 










EX AF.AF' 

RECISR RHEAD_2,RTAIL_2,SI0_1_AD,P0RT2,RX_B0SE2,STAT_2,BITS_2 


619 


OOBC 












620 












♦ ; 




621 












'♦; CHECK 


IF BUFFER IS FULL - COMPORE HEOD ANO TAIL POINTERS 


622 












♦;IF EQUAL THEN RETRIEVE CHOR. OND DISCARD. SET BIT IN STATUS UORD 


623 












♦ ; 




624 


OOBC 


30 


00 


00 


E 


■♦■ 


LD A,(RHEA0 2) Retrieve value of head pointer 
LD B,A 


625 


OOBF 


47 








♦ 


626 


OOCO 


30 


00 


00 


E 


♦ 


LD A,(RTAIL 2) Retrieve value of tail pointer 


627 


00C3 


3C 








♦ 


INC A 


628 


0OC4 


3C 








♦ 


INC A Add 2 to tail pointer 


629 


OOCS 


68 








♦ 


CP B Compare the two pointers 

JR NZ,??O009 If pointers are not equal, jump 


630 


0OC6 


20 


00 






♦ 


631 


00C8 


OB 


BO 






+ 


IN A,(SI0 1 AO) Retrieve character and discard 


632 


OOCO 


21 


00 


00 


E 


♦ 


LD HL.STOT? Get address of Status byte 
SET 3.(HL] ~ Set bit 3 in the Status byte 
JP ??0012 Jump to exit routine 


633 


OOCO 


CB 


DE 






♦ 


634 


OOCF 


C3 


12 


01 


C 


♦ 


635 












♦ ; 




636 












♦ RETRIEVE CHARACTER OND DO BIT MOP CHECK. IF SPECIOL CHARACTER (BIT 
♦;FOR THE PORT IS SET), SEND SPECIAL CHARACTER INTERRUPT TO HOST. 


637 












638 
639 


0002 


OB 


BO 






♦$?0009: 


IN A.fSIO 1 AD) RETRIEVE CHARACTER FROM UORT 
LD HL,BITS_2~ " 


640 


0004 


21 


00 


00 


E 


♦ 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 
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$41 


00D7 


A6 








♦ ANO (HL) 

♦ LD C.A 


Mask off parity bits 


642 


00D8 


4F 










643 


00D9 


06 


00 






♦ LO 8,0 


Obtaining a 2-reg. quantity 


644 


OOOB 


21 


00 


00 


E 


♦ LO HL.BIT HAP 


Get address of Bit Map base 


645 


OODE 


09 








♦ ADD HL.BC ~ 

♦ BIT P0RT2.(HL) 

♦ JP 2,??O0lO 


Bit flap 8ase+char.=effective address 


646 


OODF 


CB 


56 






Is the bit for the port ■ 1? 


647 
648 
649 


00E1 


CA 


FD 


00 


C 


Jump if not a special character 












♦•BIT HAP POSITION SET - CHECK SEMAPHORE REG. BEFORE SENDING INTERRUPT 


650 
651 


00E4 


3A 


02 


80 




♦■hooil: LD A, (SEM REG) 


Retrieve address of semaphore register 


652 


00E7 


CB 


7F 






♦ BIT 7,A 

♦ JP NZ,??0011 


If bit 7*0, continue, else check again 


6S3 


00E9 


C2 


E4 


00 


C 




654 
















655 












♦•SEMAPHORE REGISTER SET - SEND INTERRUPT TO HOST & RELEASE SEM_REG 


656 












♦ ; 




657 


OOEC 


21 


00 


CO 




♦ LD HL.INT COND 

♦ SET P0RT2,(RL) 

♦ LD HL.ICR TAB 


Retrieve address of Int Cond register 


6S8 


OOEF 


CB 


06 






Set bit for port specific interrupt 
Retrieve address of ICR TAB base 


659 


00F1 


21 


00 


00 


E 


660 


00F4 


11 


02 


00 




♦ LD DE.P0RT2 


Get index into ICR tab - port specific 


661 


00 F7 


19 








♦ ADD HL.DE 

♦ SET SPEC ICR,(HL) 


index ♦ ICR TAB base » effective address 


662 


00 F8 


CB 


CE 






Set correct bit in ICR TAB 


663 


00 FA 


32 


02 


80 




♦ LO (SEMlREG).A 


Clear bit 7 of Sem. reg. by writing to it 


664 












♦ ; 




665 












♦;PUT CHARACTER IN FIFO AND UPDATE THE TAIL POINTER 


666 
667 


00 FO 


26 


C3 






♦f?0010: LD H.RX BASE2 

♦ LO A.fRTAir 2) 

♦ LO L.A 


Get upper byte of FIFO base 


668 


OOFF 


3A 


00 


00 


E 


Get the value of the tail index 


669 


0102 


6F 








Lower byte of tail pointer to 1 register 


670 


0103 


71 








♦ LO (HL),C 

♦ INC HL 


Put character into buffer 


671 


0104 


23 








Increment address for status byte 


672 


0105 


3A 


00 


00 


E 


♦ LD A, (STAT 2) 


Retrieve status byte 


673 


0108 


77 








♦ LD (HL),A 

♦ XOR A 


Put status byte into buffer 


674 


0109 


AF 










67S 


010A 


32 


00 


00 


E 


♦ LO (STAT_2),A 

♦ LD A,L 


Clear status register 


676 


0100 


70 








Put tail pointer into A reg. 


677 


010E 


3C 








♦ INC A 


Update pointer for next char. 


678 


010F 


32 


00 


00 


E 


♦ LO (RTAIL_2),A 


Update tail pointer index 


679 
680 


0112 


09 








♦*?0012 EXX 




681 


0113 


08 








♦ EX AF.AF' 




682 


0114 


FB 








♦ EI 




683 


0115 


EO 


4D 






♦ RETI 




68S 












; RECEIVE ISR FOR PORT #3 




687 


0117 


09 








REC 3 EXX 




688 


0118 


08 








EX AF.AF' 




689 


0119 










RECISR RHEAD 3,RTAIL_3,SI0_1_BD,P0RT3,RX_BASE3,STAT_3,BITS_3 


690 












♦ ; 




ERR LIKE 


AODR 


Bl 


B2 


B3 B4 
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691 












♦;CHECK IF BUFFER IS FULL - COMPARE HEAD AND TAIL POINTERS 


692 












♦;IF EQUAL THEN RETRIEVE CHAR 


. ANO DISCARD. SET BIT IN STATUS WORD 


693 












♦ ; 




694 


0119 


3A 


00 


00 


E 


♦ LD A, (RHEAD 3) 

♦ LD 8, A 


Retrieve value of head pointer 


695 


one 


47 










696 


0110 


3A 


00 


00 


E 


♦ LD A,(RTAIL 3) 


Retrieve value of tail pointer 


697 


0120 


3C 








♦ INC A 




698 


0121 


3C 








♦ INC A 


Add 2 to tail pointer 


699 


0122 


B8 








♦ CP B 


Compare the two pointers 

If pointers are not equal, jump 


700 


0123 


20 


OA 






♦ JR NZ,??0013 


701 


012S 


DB 


B2 






♦ IN A,(SIO 1 BD) 


Retrieve character and discard 


702 


0127 


21 


00 


00 


E 


♦ LD HL.STAT3 


Get address of Status byte 


703 


012A 


CB 


OE 






♦ SET 3.(HL] 

♦ JP ??0016 


Set bit 3 in the Status byte 


704 


012C 


C3 


6F 


01 


C 


Jump to exit routine 


705 












♦ ; 




706 












♦: RETRIEVE CHARACTER AND DO BIT MAP CHECK. IF SPECIAL CHARACTER (BIT 


707 












♦;FOR THE PORT IS SET), SEND 


A SPECIAL CHARACTER INTERRUPT TO HOST. 


708 
709 


012F 


DB 


B2 






♦*?0013: IN A.fSIO 1 BO) RETRIEVE CHARACTER FROM UART 


710 


0131 


21 


00 


00 


E 


♦ LO HL.BITS 3 " 




711 


0134 


A6 








♦ AND (HL) 

♦ LO C.A 


Mask off parity bits 


712 


0135 


4F 










713 


0136 


06 


00 






♦ LD B.O 


Obtaining a 2-reg. quantity 
Get address of Bit Map base 


714 


0138 


21 


00 


00 


E 


♦ LD HL.BIT MAP 


715 


013B 


09 








♦ ADD HL.BC ~ 

♦ BIT P0RT3,(HL) 

♦ JP 2,??0014 


Bit Map Base+char.*effective address 
Is the bit for the port * 1? 


716 


013C 


CB 


SE 






717 


013E 


CA 


5A 


01 


C 


Jump if not a special character 


718 












♦ ; 




719 












♦•BIT MAP POSITION SET - CHECK SEMAPHORE REG. BEFORE SENDING INTERRUPT 


720 
721 


0141 


3A 


02 


80 




♦j?0015: LD A,(SEM_REG) 


Retrieve address of semaphore register 


722 


0144 


CB 


7F 






♦ BIT 7,A 

♦ JP NZ,??0015 


If bit 7*0, continue, else check again 


723 


0146 


C2 


41 


01 


C 




724 












♦ ; 




72S 












♦•SEMAPHORE REGISTER SET - SEND INTERRUPT TO HOST & RELEASE SEM_REG 


726 












♦ ; 




727 


0149 


21 


00 


CO 




♦ LD HL.INT CONO 

♦ SET P0RT3,(RL] 

♦ LD HL.ICR TAB 


Retrieve address of Int Cond register 


728 


014C 


CB 


DE 






Set bit for port specific interrupt 
Retrieve address of ICR TAB base 


729 


014E 


21 


00 


00 


E 


730 


01S1 


11 


03 


00 




♦ LD DE.P0RT3 


Get index into ICR tab - port specific 


731 


01S4 


19 








♦ ADD HL.DE 

♦ SET SPEC ICR.(HL) 


index ♦ ICR TAB base * effective address 


732 


01S5 


CB 


CE 






Set correct bit in ICR TAB 


733 


0157 


32 


02 


80 




♦ LD (SEM REG), A 


Clear bit 7 of Sem. reg. by writing to it 


734 












♦ ; 




73S 












♦;PUT CHARACTER IN FIFO AND UPDATE THE TAIL POINTER 


736 












♦??0014: LD H.RX BASE3 
♦ LD A,(RTAir_3) 




737 


015A 


26 


C2 






Get upper byte of FIFO base 


738 


015C 


3A 


00 


00 


E 


Get the value of the tail index 


739 


01SF 


6F 








Lower byte of tail pointer to 1 register 


740 


0160 


71 








♦ LD (HL),C 

♦ INC HL 


Put character into buffer 


741 


0161 


23 








Increment address for status byte 


742 


0162 


3A 


00 


00 


E 


♦ LO A, (STAT 3) 


Retrieve status byte 


743 


0165 


77 








♦ LO (HL),A " 

♦ XOR A 


Put status byte into buffer 


744 


0166 


AF 











R LINE 


ADDR 


Bl 


B2 


B3 B4 


74S 


0167 


32 


00 


00 


746 


016A 


70 






747 


016B 


3C 






748 


016C 


32 


00 


00 


749 










750 


016F 


09 






751 


0170 


08 






752 


0171 


FB 






753 


0172 


EO 


4D 




755 


0174 








ASSEItfLER ERRORS 


. 






Z80 ASSEMBLER VER 3.0MR PAGE 

LO (STAT 3), A Clear status register 

LD A,L ~ Put tail pointer into A reg. 

INC A Update pointer for next char. 

LD (RTAIL_3),A Update tail pointer index 



►f?0016 EXX 

► EX AF.AF' 

► EI 

► RETI 



ENO 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 






Z80 ASSEMBLER VER 3.0MR PAGE 1 


1 














SOURCE: &RXERR 


2 
3 

4 














PROGRAMMER: LIZ POTEET 














4 CHANNEL DIO MUX (FORDYCE) - SPECIAL RECEIVE CONDITION ISR'S 
FOR PORTS THRU 3 - PARITY, OVERRUN, FRAMING ERRORS 


5 
6 
7 


























XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX xxxxxxx xx xxxxxxx xxx 


8 














« (C) COPYRIGHT HEWLETT-PACKARO COMPANY 1983. ALL RIGHTS 
* RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 


9 














10 














« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE UITHOUT 


11 














• THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 


12 
13 
14 














xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 














LIST B 


IS 














NAME RXERR 


16 














COPY &MX4EQUS 


456 














LIST S 


457 
















458 














PUBLIC RX_ERRO ,RX_ERR 1 , RX_ERR2 , RX_ERR3 


459 
















460 














EXTRN STAT O.STAT l.STAT 2, STAT 3.RHEA0 O.RHEAD 1 .RHEAO 2 


461 














EXTRN RHEAff 3.RTATL O.RTffIL l.RTAIL 2,RTa1l 3,BTT_MAP 
EXTRN ICR TffB.BITS 0",BITS lTBlTS 2,B"ITS 3 


462 














463 














xsxxxxxxxxxxxxxxxxxxsxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 


464 














DESCRIPTION: This file contains the Special Receive Condition 


465 














Interrupt Service Routines which are invoked when the UART has 


466 














received a character which has one of three error conditions 


467 














associated with it: a parity error, a UART overflow error, or a 
framing error. There is one Special Receive Condition ISR for 


468 














469 














each port. All four are basically the same. The entry points are: 
RX ERRO, RX ERR1, RX ERR2 , and RX ERR3. 

The Special Receive Condition TSR x s consist of two macros. The 


470 














471 














472 














first is SPEC RX and the second RECISR. A description of both of 


473 














these may be Tound in the file &MX4EQUS. 


474 














xsxxxxxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxxx*xxxxxxxxxxsxxxxx*xxxxxxxx* 


476 














CSEG 


478 














RECEIVE ISR FOR PORT tO 


480 


0000 










RX ERRO SPEC RX SIO AC. STAT 


481 


0000 


09 








♦ 


EXX CAUTION! IF THIS ROUTINE IS INTERRUPTED 


482 


0001 


08 








♦ 


EX AF.AF' USE PUSH & POP ELSE MAY LOSE REG. VALUES 

LO A.l 

OUT (SIO AC],A Point to Read Register 1 

IN A,(STO - AC) Read contents of Read Reg. 1 

SLA A Shift 1 bit left for status byte 


483 


0002 


3E 


01 






♦ 


484 
485 


0004 
0006 


D3 
DB 


71 
71 








486 


0008 


CB 


27 






♦ 


487 


OOOfl 


E6 


EO 






♦ 


AND ERR.MSK Mask off all but error bits 


ERR LINE 


ADDR 


Bl 


B2 


B3 B4 
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488 


OOOC 


47 








♦ 


LO B,A B reg is status byte parameter in RECISR 


489 


0000 


3A 


00 


00 


E 


♦ 


LD A, (STAT 0) Retrieve value in Status byte 


490 


0010 


BO 








♦ 


OR 8 Combine with any other possible bits 


491 


0011 


32 


00 


00 


E 


••■ 


LD (STAT 0),A Put new value in Status Register 

LD H,30H~ Code for Error Reset 

OUT (SIO AC). A Error latches now reset 

RECISR RHEAB_0,RTAIL_0,SI0_0_AD, PORTO, RX_BASEO,STAT_0,BITS_0 


492 


0014 


3E 


30 






+ 


493 


0016 


D3 


71 






+ 


494 


0018 












495 












♦ ; 




496 












+ 


CHECK IF BUFFER IS FULL - COMPARE HEAD AND TAIL POINTERS 


497 












♦ 


IF EQUAL THEN RETRIEVE CHAR. AND DISCARD. SET BIT IN STATUS WORD 


498 












♦ 




499 


0018 


3A 


00 


00 


E 


♦ 


LD A,(RHEAD 0) Retrieve value of head pointer 
LD B,A 


500 


001B 


47 








•♦• 


501 


001C 


3A 


00 


00 


E 


♦ 


LD A,(RTAIL 0) Retrieve value of tail pointer 


502 


001F 


3C 








♦ 


INC A 


503 


0020 


3C 








♦ 


INC A Add 2 to tail pointer 


504 


0021 


B8 








♦ 


CP B Compare the two pointers 

JR NZ,??0001 If pointers art not equal, jump 


505 


0022 


20 


OA 






♦ 


S06 


0024 


DB 


70 






♦ 


IN A, (SIO AD) Retrieve character and discard 


507 


0026 


21 


00 


00 


E 


♦ 


LO HL.STAT 0" Get address of Status byte 
SET 3.JHL) ~ Set bit 3 in the Status byte 
JP ??0004 Jump to exit routine 


508 


0029 


CB 


DE 






♦ 


509 


002B 


C3 


6E 


00 


C 


♦ 


S10 












♦ , 




Sll 












♦• 


RETRIEVE CHARACTER AND 00 BIT MAP CHECK. IF SPECIAL CHARACTER (BIT 
FOR THE PORT IS SET), SEND A SPECIAL CHARACTER INTERRUPT TO HOST. 


S12 












♦^ 


513 

514 


002E 


OB 


70 






♦f?0001: IN A,(SIO_0_AD) RETRIEVE CHARACTER FROM UART 


515 


0030 


21 


00 


00 


E 


♦ 


LO HL.BITS 


516 


0033 


A6 








♦ 


AND (HL) Mask off parity bits 
LD C,A 


517 


0034 


4F 








♦ 


518 


0035 


06 


00 






♦ 


LD B,0 Obtaining a 2-reg. quantity 
LO HL.BIT MAP Get address of Bit Map base 


S19 


0037 


21 


00 


00 


E 


4- 


520 


003A 


09 








♦ 


ADD HL.BC Bit Map Base+char. -effective address 
BIT PORTO.(HL) Is the bit for the port » 1? 
JP Z,??0002 Jump if not a special character 


521 


0038 


CB 


46 






♦ 


522 


003D 


CA 


59 


00 


C 


♦ 


S23 












♦ 




524 












♦ 


BIT MAP POSITION SET - CHECK SEMAPHORE REG. BEFORE SENDING INTERRUPT 


525 
526 


0040 


3A 


02 


80 




♦??0OO3: LO ft,(SEM_REG) Retrieve address of semaphore register 


527 


0043 


CB 


7F 






♦ 


BIT 7,R If bit 7*0, continue, else check again 
JP NZ, 770003 


528 


0045 


C2 


40 


00 


c 


♦ 


529 












♦ ; 




530 












♦ 


SEMAPHORE REGISTER SET - SEND INTERRUPT TO HOST 4 RELEASE SEM_REG 


531 












♦ 




532 


0048 


21 


00 


CO 




♦ 


LD HL.INT COND Retrieve address of Int Cond register 
SET PORTO.(RL) Set bit for port specific interrupt 
LO HL.ICR TAB Retrieve address of ICR TAB base 


533 


004B 


CB 


C6 






♦ 


534 


0040 


21 


00 


00 


E 


♦ 


535 


0050 


11 


00 


00 




♦ 


LO DE.PORTO Get index into ICR tab - port specific 


S36 


0053 


19 








♦ 


ADD HL.DE index ♦ ICR TAB base « effective address 
SET SPEC ICR.(HL) Set correct bit in ICR TAB 


537 


0054 


CB 


CE 






♦ 


538 


0056 


32 


02 


80 




♦ 


LO (SEM_REG) ,A Clear bit 7 of Sem. reg. by writing to it 


539 












♦ 




540 












♦ 


PUT CHARACTER IN FIFO AND UPDATE THE TAIL POINTER 


541 












♦ 





ERR LINE 


ADOR 


Bl 


B2 


B3 B4 
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542 


0059 


26 


CS 






♦??0002: 


LO H.RX BASEO 


Get upper byte of FIFO base 


543 


005B 


3A 


00 


00 


E 


4- 


LO 


A,fRTAIL_0) 


Get the value of the tail index 


544 


005E 


6F 








♦ 


LD 


Lower byte of tail pointer to 1 register 


545 


005F 


71 








♦ 


LD 


(HL),C 


Put character into buffer 


546 


0060 


23 








♦ 


INC 


HL 


Increment address for status byte 


547 


0061 


3A 


00 


00 


E 


♦ 


LD 


A, (STAT 0) 


Retrieve status byte 


548 


0064 


77 








♦ 


LO 


r ,.fl- 


Put status byte into buffer 


549 


0065 


AF 








♦ 


XOR 




550 


0066 


32 


00 


00 


E 


♦ 


LD 


(STAT_0) ,A 


Clear status register 


551 


0069 


70 








♦ 


LD 


Put tail pointer into A reg. 


5S2 


0068 


3C 








♦ 


INC 


A* 


Update pointer for next char. 


553 


006B 


32 


00 


00 


E 


♦ 


LD 


(RTAIL_0),A 


Update tail pointer index 


554 












♦i?0004 








555 


006E 


09 








EXX 




556 


006 F 


08 








♦ 


EX 


AF.AF' 




557 


0070 


FB 








♦ 


EI 






558 


0071 


ED 


40 






♦ 


RETI 






560 












; RECEIVE ISR 


FOR PORT #1 




562 


0073 










RX_ERR1 


SPEC 


_RX SIO_0_BC,STAT 1 


563 


0073 


09 








♦ 


EXX 




CAUTION! IF THIS ROUTINE IS INTERRUPTED 


564 


0074 


08 








♦ 


EX 


AF.AF* 

(SIO BC1.A 
A,(ST/0~0 BC) 


USE PUSH & POP ELSE MAY LOSE REG. VALUES 


56S 


0075 


3E 


01 






♦ 


LO 




S66 


0077 


D3 


73 






♦ 


OUT 


Point to Read Register 1 


567 


0079 


OB 


73 






+ 


IN 


Read contents of Read Reg. 1 
Shift 1 bit left for status byte 


568 


007B 


CB 


27 






+ 


SLA 


A 


569 


0070 


E6 


EO 






♦ 


ANO 


ERR MSK 


Mask off all but error bits 


570 


007F 


47 








♦ 


LD 


B,A~ 


B reg is status byte parameter in RECISR 


S71 


0080 


3A 


00 


00 


E 


♦ 


LD 


A.(STAT.l) 


Retrieve value in Status byte 
Combine with any other possible bits 


572 


0083 


BO 








♦ 


OR 


B 


573 


0084 


32 


00 


00 


E 


♦ 


LD 


(STAT 1),A 

A.30H" 

(SIO BC1.A 


Put new value in Status Register 


574 


0087 


3E 


30 






♦ 


LD 


Code for Error Reset 


S7S 


0089 


03 


73 






♦ 


OUT 


Error latches now reset 


576 


008B 












RECISR RHEaD" l.RTAI 


L_l ,SIO_0_BO,PORT1 ,RX_BASE1 ,STAT_1 ,BITS_1 


577 












♦ ; 








578 












♦;CHECK IF BUFFER IS FULL - COMPARE HEAD AND TAIL POINTERS 


579 












♦;IF EQUAL THEN RETRIEVE CHAR 


. AND DISCARD. SET BIT IN STATUS UORD 


580 












♦; 








581 


008B 


3A 


00 


00 


E 


♦ 


LD 


A,(RHEAD_l) 
B,A 


Retrieve value of head pointer 


582 


008E 


47 








+ 


LD 




583 


008 F 


3A 


00 


00 


E 


♦■ 


LD 


A,(RTAIL 1) 


Retrieve value of tail pointer 


584 


0092 


3C 








♦ 


INC 


A 




S8S 


0093 


3C 








+ 


INC 


A 


Add 2 to tail pointer 


586 


0094 


B8 








♦ 


CP 


B 


Compare the two pointers 

If pointers are not equal, jump 


587 


0095 


20 


OA 






♦ 


JR 


NZ,??0005 


588 


0097 


OB 


72 






♦ 


IN 


A, (SIO BO) 


Retrieve character and discard 


589 


0099 


21 


00 


00 


E 


♦ 


LD 


HL.STATJ 


Get address of Status byfe 


590 


009C 


CB 


OE 






♦ 


SET 


?*0008 


Set bit 3 in the Status byte 


591 


009E 


C3 


El 


00 


C 


+ 


JP 


Jump to exit routine 


ERR LINE 


ADDR 


Bl 


B2 


B3 B4 
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592 












♦ ; 








593 












♦ RETRIEVE CHARACTER AND DO BIT MAP CHECK. IF SPECIAL CHARACTER (BIT 


S94 












♦ ;FOR THE 


PORT 


IS SET), SEND 


A SPECIAL CHARACTER INTERRUPT TO HOST. 


595 
S96 


00A1 


OB 


72 






♦i?0005: 


IN A, (SIO BO) RETRIEVE CHARACTER FROM UART 


S97 


0OA3 


21 


00 


00 


E 


♦ 


LD 


HL.BITS 1 




598 


0OA6 


A6 








♦ 


ANO 


n ] 


Mask off parity bits 


599 


00A7 


4F 








+ 


LD 




600 


0008 


06 


00 






♦ 


LD 


B,0 


Obtaining a 2-reg. quantity 


601 


OOAA 


21 


00 


00 


E 


♦ 


LD 


HL.BIT MAP 


Get address of Bit Map base 


602 


OOAD 


09 








♦ 


ADO 


HL.BC " 


Bit Map Base+char .-effective address 
Is tne bit for the port « 1? 


603 


OOAE 


CB 


4E 






+ 


BIT 


PORTl.(HL) 
2,??0006 


604 


OOBO 


CA 


CC 


00 


C 


♦ 


JP 


Jump if not a special character 


605 












♦ ; 








606 












♦;BIT MAP 


POSITION SET - CHECK SEMAPHORE REG. BEFORE SENDING INTERRUPT 


607 
608 


00B3 


3A 


02 


80 




♦•j?0007: 


LO A.(SEMREG) 


Retrieve address of semaphore register 


609 


0066 


CB 


7F 






♦ 


BIT 


7 A 
N£,??0007 


If bit 7«0, continue, else check again 


610 


0088 


C2 


B3 


00 


C 


♦ 


JP 




611 












♦ ; 








612 












♦•SEMAPHORE REGISTER SET - SEND INTERRUPT TO HOST & RELEASE SEM_REG 


613 












♦ ; 








614 


OOBB 


21 


00 


CO 




♦ 


LD 


HL.INT CONO 
PORTl.(RL) 
HL.ICR TAB 


Retrieve address of Int Cond register 


615 


OOBE 


CB 


CE 






♦ 


SET 


Set bit for port specific interrupt 
Retrieve address of ICR TAB base 


616 


OOCO 


21 


00 


00 


E 


♦ 


LD 


617 


0OC3 


11 


01 


00 




♦ 


LD 


DE.PORTl 


Get index into ICR tab - port specific 


618 


0OC6 


19 








♦ 


AOO 


HL.DE 

SPEC ICR.(HL) 

(SEM~REG),A 


index ♦ ICR TAB base * effective address 


619 


0OC7 


CB 


CE 






♦ 


SET 


Set correct bit in ICR TAB 


620 


0OC9 


32 


02 


80 




♦ 


LD 


Clear bit 7 of Sem. reg. by writing to it 


621 












♦ ; 








622 












♦ ;PUT CHARACTER IN FIFO AND UPOATE THE TAIL POINTER 


623 
624 


OOCC 


26 


C4 






♦4*0006: 


LO H.RX BASE1 


Get upper byte of FIFO base 


625 


OOCE 


3A 


00 


00 


E 


♦ 


LD 


A,(RTAIC_1) 


Get the value of the tail index 


626 


0001 


6F 








♦ 


LO 


Lower byte of tail pointer to 1 register 
Put character into buffer 


627 


0002 


71 








♦ 


LO 


Jfu.c 


628 


0003 


23 








♦ 


INC 


Increment address for status byte 


629 


0OD4 


3A 


00 


00 


E 


♦ 


LD 


A, (STAT 1) 


Retrieve status byte 


630 
631 


0007 
0008 


77 
AF 








+ 


LD 
XOR 


jMD ,A 


Put status byte into buffer 


632 


0009 


32 


00 


00 


E 


♦ 


LO 


(STAT_lJ.fi 


Clear status register 


633 


OODC 


70 








* 


LD 


Put tail pointer into A reg. 


634 


0000 


3C 








♦ 


INC 


A* 


Update pointer for next char. 


635 


OOOE 


32 


00 


00 


E 


♦ 


LD 


(RTAILl).A 


Update tail pointer index 


636 
637 


0OE1 


09 








♦f?0008 


EXX 




638 


0OE2 


08 








♦ 


EX 


AF.AF' 




639 


0OE3 


FB 








♦ 


EI 






640 


00E4 


ED 


40 






♦ 


RETI 






642 












; RECEIVE ISR 


FOR PORT t2 





ERR LINE 


ADDR 


Bl 


B2 


B3 B4 
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644 


00E6 










RX ERR2 SPEC RX SIO 1 AC, STAT 2 


645 


00E6 


09 








♦ " EXX ~ 


CAUTION! IF THIS ROUTINE IS INTERRUPTED 


646 


00E7 


08 








♦ EX AF.AF' 

♦ LD A.l 


USE PUSH & POP ELSE MAY LOSE REG. VALUES 


647 


00E8 


3E 


01 








648 


OOEA 


03 


Bl 






♦ OUT (SIO 1 AC). A 

♦ IN A,(ST0~1 AC) 


Point to Read Register 1 


649 


OOEC 


OB 


61 






Read contents of Read Reg. 1 
Shift 1 bit left for status byte 


650 


OOEE 


CB 


27 






♦ SLA A 


651 


OOFO 


E6 


EO 






♦ AND ERR MSK 


Mask off all but error bits 


652 


00 F2 


47 








♦ LD B,A~ 


B reg is status byte parameter in RECISR 


653 


00 F3 


3fl 


00 


00 


E 


♦ LD A, (STAT 2) 


Retrieve value in Status byte 


654 


00 F6 


BO 








♦ OR B 


Combine with any other possible bits 


655 


00F7 


32 


00 


00 


E 


♦ LD (STAT 2),A 


Put new value in Status Register 


656 


00 FA 


3E 


30 






♦ LD A.30H" 

♦ OUT (SIO 1 AC), A 
RECISR RHE"AD" 2.RTAI 


Code for Error Reset 


657 


OOFC 


03 


Bl 






Error latches now reset 


658 


OOFE 










L 2, SIO 1 AD.P0RT2.RX BASE2.STAT 2, BITS 2 


659 












♦ • — 


_ _ — — 


660 












♦;CHECK IF BUFFER IS FULL - COMPARE HEAD AND TAIL POINTERS 


661 












♦;IF EQUAL THEN RETRIEVE CHAR 


. AND DISCARD. SET BIT IN STATUS WORD 


662 












♦ ; 




663 


00 FE 


3A 


00 


00 


E 


♦ LO A,(RHEAD 2) 


Retrieve value of head pointer 


664 


0101 


47 








♦ LD B.A 




665 


0102 


3A 


00 


00 


E 


♦ LO A,(RTAIL 2) 


Retrieve value of tail pointer 


666 


010S 


3C 








♦ INC A 




667 


0106 


3C 








♦ INC A 


Add 2 to tail pointer 


668 


0107 


B8 








♦ CP B 


Compare the two pointers 

If pointers are not equal, jump 


669 


0108 


20 


OA 






♦ JR NZ,??0009 


670 


010A 


OB 


BO 






♦ IN A, (SIO 1 AD) 


Retrieve character and discard 


671 


010C 


21 


00 


00 


E 


♦ LO HL.STAT? 


Get address of Status byte 
Set bit 3 in the Status byte 


672 


010F 


CB 


OE 






♦ SET 3. (HL) ~ 

♦ JP ??00l£ 


673 


0111 


C3 


54 


01 


C 


Jump to exit routine 


674 












♦ ; 




675 












♦RETRIEVE CHARACTER AND 00 BIT MAP CHECK. IF SPECIAL CHARACTER (BIT 


676 












♦;F0R THE PORT IS SET), SEND 


A SPECIAL CHARACTER INTERRUPT TO HOST. 


677 
678 


0114 


OB 


BO 






♦*?0009: IN A.fSIO 1 AO) RETRIEVE CHARACTER FROM UART 


679 


0116 


21 


00 


00 


E 


♦ LO HL.BITS 2 




680 


0119 


A6 








♦ ANO (HL) 

♦ LD C,A 


Mask off parity bits 


681 


Ollfi 


4F 










682 


OUB 


06 


00 






♦ LO B.O 


Obtaining a 2-reg. quantity 
Get address of Bit Map base 


683 


0110 


21 


00 


00 


E 


♦ LO HL.BIT HAP 


684 


0120 


09 








+ AOD HL.BC ~ 

♦ BIT P0RT2.(HL) 

♦ JP Z,??0010 


Bit Map Base+char. -effective address 
Is the bit for the port * 1? 


685 


0121 


CB 


56 






686 


0123 


CA 


3F 


01 


C 


Jump if not a special character 


687 












♦ ; 




688 












♦;BIT MAP POSITION SET - CHECK SEMAPHORE REG. BEFORE SENDING INTERRUPT 


689 
690 


0126 


3A 


02 


80 




♦"hooil: LD A,(SEM REG) 


Retrieve address of semaphore register 


691 


0129 


CB 


7F 






♦ BIT 7,A 

♦ JP N2,??0011 


If bit 7*0, continue, else check again 


692 


012B 


C2 


26 


01 


C 




693 












♦ ; 




694 












♦{SEMAPHORE REGISTER SET - SEND INTERRUPT TO HOST & RELEASE SEM_REG 


695 












♦ • 




696 


012E 


21 


00 


CO 




+ LO HL,INT_CONO 


Retrieve address of Int_Cond register 


ERR LINE 
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Bl 
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697 


0131 


CB 


06 






♦ SET P0RT2,(HL] 

♦ LO HL.ICR TAB 


Set bit for port specific interrupt 
Retrieve address of ICR TAB base 


698 


0133 


21 


00 


00 


E 


699 


0136 


11 


02 


00 




♦ LO 0E.P0RT2 


Get index into ICR tab - port specific 


700 


0139 


19 








♦ ADD HL.DE 

♦ SET SPEC ICR.(HL) 


index ♦ ICR TAB base = effective address 


701 


013A 


CB 


CE 






Set correct bit in ICR TAB 


702 


013C 


32 


02 


80 




♦ LD (SEM~REG),A 


Clear bit 7 of Sem. reg. by writing to it 


703 












♦ ; 




704 












♦;PUT CHARACTER IN FIFO ANO UPDATE THE TAIL POINTER 


70S 
706 


013F 


26 


C3 






♦f?0010: LD H.RX BASE2 
♦ LD A,(RTAIL"_2) 


Get upper byte of FIFO base 


707 


0141 


3A 


00 


00 


E 


Get the value of the tail index 


708 


0144 


6F 








Lower byte of tail pointer to 1 register 


709 


014S 


71 








♦ LD (HL),C 

♦ INC HL 


Put character into buffer 


710 


0146 


23 








Increment address for status byte 


711 


0147 


3A 


00 


00 


E 


♦ LD A, (STAT 2) 


Retrieve status byte 


712 


014A 


77 








♦ LD (HL),A ~ 

♦ XOR A 


Put status byte into buffer 


713 


014B 


AF 










714 


014C 


32 


00 


00 


E 


♦ LD (STAT 2), A 

♦ LD fl.L ~ 


Clear status register 


715 


014F 


70 








Put tail pointer into A reg. 


716 


0150 


3C 








♦ INC A 


Update pointer for next char. 


717 


0151 


32 


00 


00 


E 


♦ LO (RTAIL_2),A 


Update tail pointer index 


718 

719 


0154 


09 








♦f?0012 EXX 




720 


0155 


08 








♦ EX AF.AF' 




721 


0156 


FB 








♦ EI 




722 


0157 


EO 


40 






♦ RETI 




724 












; RECEIVE ISR FOR PORT «3 




726 


0159 










RX ERR3 SPEC RX SIO 1_BC,STAT_3 


727 


0159 


09 








♦ ~ EXX 


CAUTION! IF THIS ROUTINE IS INTERRUPTED 


728 


OlSfl 


08 








♦ EX AF.AF' 

♦ LD A.l 

♦ OUT (SIO 1 BC).A 

♦ IN A,(ST0~1_BC) 


USE PUSH & POP ELSE MAY LOSE REG. VALUES 


729 


015B 


3E 


01 








730 


0150 


03 


B3 






Point to Read Register 1 


731 


015F 


OB 


B3 






Read contents of Read Reg. 1 
Shift 1 bit left for status byte 


732 


0161 


CB 


27 






♦ SLA A 


733 


0163 


E6 


EO 






♦ AND ERR MSK 


Mask off all but error bits 


734 


0165 


47 








♦ LO B,A~ 


B reg is status byte parameter in RECISR 


73S 


0166 


3A 


00 


00 


E 


♦ LO A, (STAT 3) 


Retrieve value in Status byte 


736 


0169 


BO 








♦ OR B 


Combine with any other possible bits 


737 


016A 


32 


00 


00 


E 


♦ LO (STAT 3), A 

♦ LO A.30H 

♦ OUT (SIO 1 BC).A 
RECISR RHE~AD" 3.RTAI 


Put new value in Status Register 


738 


0160 


3E 


30 






Code for Error Reset 


739 


016F 


03 


B3 






Error latches now reset 


740 


0171 










L 3, SIO 1 BD,P0RT3,RX 8ASE3.STAT 3.BITS 3 


741 












♦ ; ~ 




742 












♦;CHECK IF BUFFER IS FULL - COMPARE HEAD ANO TAIL POINTERS 


743 












♦ ;IF EQUAL THEN RETRIEVE CHAR 


. ANO DISCARD. SET BIT IN STATUS UORD 


744 












♦ ; 




745 


0171 


3A 


00 


00 


E 


♦ LO A.fRHEAO 3) 

♦ LO B.A 


Retrieve value of head pointer 


746 


0174 


47 
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747 


0175 


3A 


00 


00 


E 


748 


0178 


3C 








749 


0179 


3C 








7S0 


017ft 


B8 








751 


017B 


20 


Oft 






752 


017D 


DB 


B2 






7S3 


017F 


21 


00 


00 


E 


754 


0182 


CB 


OE 






755 


0184 


C3 


C7 


01 


C 


756 












757 












758 












759 












760 


0187 


OB 


B2 






761 


0189 


21 


00 


00 


E 


762 


018C 


ft6 








763 


0180 


4F 








764 


018E 


06 


00 






765 


0190 


21 


00 


00 


E 


766 


0193 


09 








767 


0194 


CB 


5E 






768 


0196 


Cfi 


B2 


01 


C 


769 












770 












771 












772 


0199 


3ft 


02 


80 




773 


019C 


CB 


7F 






774 


019E 


C2 


99 


01 


C 


775 












776 












777 












778 


01A1 


21 


00 


CO 




779 


01R4 


CB 


OE 






780 


0106 


21 


00 


00 


E 


781 


01A9 


11 


03 


00 




782 


01BC 


19 








783 


OlflD 


CB 


CE 






784 


01AF 


32 


02 


80 




785 












786 












787 












788 


01B2 


26 


C2 






789 


01B4 


3ft 


00 


00 


E 


790 


01B7 


6F 








791 


01B8 


71 








792 


01B9 


23 








793 


OlBfl 


3ft 


00 


00 


E 


794 


0160 


77 








795 


01BE 


fiF 








796 


01BF 


32 


00 


00 


E 


797 


01C2 


7D 








798 


01C3 


3C 








799 


01C4 


32 


00 


00 


E 


800 
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LD 

INC 

INC 

CP 

JR 

IN 

LO 

SET 

JP 



A,(RT«IL_3) 

ft 

ft 

B 

NZ,??0013 

ft.(SI0 1 BD) 

HL.STflT 3 

V HL 2 ~ 
?f0016 



Retrieve value of tail pointer 

ftdd 2 to tail pointer 
Compare the two pointers 

If pointers are not equal, jump 
Retrieve character and discard 
Get address of Status byte 
Set bit 3 in the Status byte 
Jump to exit routine 



♦ RETRIEVE CHARACTER AND 00 BIT MAP CHECK. IF SPECIAL CHARACTER (BIT 

♦ ;FOR THE PORT IS SET), SEND A SPECIAL CHftRftCTER INTERRUPT TO HOST. 



♦??0013: 



LD 

AND 

LD 

LO 

LD 

ADO 

BIT 

JP 



IN 



ft,(SIO_l_BD) 
HL.BITS 3 

iy 

B,0 

HL.BIT MAP 
HL.BC ~ 
P0RT3,(HL) 
Z,??0014 



RETRIEVE CHARACTER FROM UflRT 

Mask off parity bits 

Obtaining a 2-reg. quantity 
Get address of Bit Map base 
Bit Map Base+char ."effective address 
Is the bit for the port « 1? 
Jump if not a special character 



♦ ;BIT MAP POSITION SET - CHECK SEMAPHORE REG. BEFORE SENOING INTERRUPT 



♦f?0015: 



LO A,(SEM_REG) Retrieve address of semaphore register 



BIT 7,A 

JP NZ,??0015 



If bit 7*0, continue, else check again 



♦ SEMAPHORE REGISTER SET - SEND INTERRUPT TO HOST & RELEASE SEM_REG 



LD HL.INT CONO 

SET P0RT3.(RL) 

LD HL.ICR TAB 

LD DE.PORT3 

A00 HL.DE 

SET SPEC ICR.(HL) 

LD (SEM~REG),A 



Retrieve address of Int Cond register 
Set bit for port specific interrupt 

Retrieve address of ICR TAB base 

Get index into ICR tab - port specific 

index ♦ ICR TAB base * effective address 

Set correct bit in ICR TAB 

Clear bit 7 of Sem. reg. by writing to it 



♦ ;PUT CHARACTER IN FIFO AND UPDATE THE TAIL POINTER 



►??0014: LD H.RX BASE3 

LD A,(RTAIt"_3) 
L,A 
JHU.C 

A, (STAT 3) 
r ,,A" 

(STAT_3) ,A 

A* 
(RTftIL_3),A 



LD 

LO 

INC 

LD 

LD 

XOR 

LD 

LO 

INC 

LD 



Get upper byte of FIFO base 
Get the value of the tail index 
Lower byte of tail pointer to 1 register 
Put character into buffer 
Increment address for status byte 
Retrieve status byte 
Put status byte into buffer 

Clear status register 
Put tail pointer into A reg. 
Update pointer for next char. 
Update tail pointer index 
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801 01C7 09 

802 01C8 08 

803 01C9 FB 

804 01CA ED 4D 


♦??0016 


EXX 
EX AF.AF 
EI 
RET I 


806 01CC 




END 


ASSEMBLER ERRORS * 
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PAGE 



1 

2 

3 

4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

455 

456 

457 

458 

459 

460 

461 

463 
464 
465 
466 
467 
468 
469 
470 
471 



SOURCE: &MX4TX 
PROGRAMMER: LIZ POTEET 

4 CHANNEL DIO MUX (FOROYCE) - TRANSMIT ISR - UART TRIGGEREO 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 

» (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 

« RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 

* REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 

« THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 

xxx*xxxxxxxxxxxxx**xxxxxxx**xxxxxxxxx*x*xxxxxxxxxxxxxxxxx*x*xx* 

LIST X 
NAME MX4TX 
COPY &MX4EQUS 
LIST S 

PUBLIC TXJ),TX_1,TX_2,TX_3 

EXTRN THEAO O.THEAD 1 ,THEAD 2 

EXTRN THEA0"3,TTAIL O.TTAIL l.TTAIL 2.TTAIL 3.T0N0 

EXTRN T0Nl,T0N2,T0Nj,ICR_TAff 

*SXXtXXXXXX*XXXXXX*XXX*XXXX«tXXXXXXXXXSXXXXXXXXSXXXXXXXXXX*X*XX*X*XX 

DESCRIPTION: This file contains the Transmit Interrupt Service 
Routines which are invoiced when one of the SIO channels has finished 
sending out a character and is ready for the next. The transmit 
ISR is fundamentally the same for each of the four ports. The macro 
TX_ISR is called in each and appropriate parameters are passed. A 
description of the macro is contained in the file &MX4EQUS. The 
entry points for the ISR's are: TX_0, TX 1, TX 2, and TX_3. 

X*XXXXXX»XXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXX«XX*X«XXXX 



473 
475 



CSEG 
; TRANSMIT ISR FOR PORT #0 



477 0000 
478 

479 0000 09 

480 0001 08 
481 

482 
483 

484 0002 3A 00 00 

485 0005 47 

486 0006 3A 00 00 

487 0009 B8 



TX_0 TX_ISR SIO AC,TONO,THEAD_0,SIO_0_AD,TFIFO 0,TTAIL_0, PORTO 
► : ~ "" — — 

1CAUTI0N If this routine is interrupted, 
use push and pop or may lose reg. data 



EXX 
EX 



AF.AF* 
♦•TEST IF TX BUFFER IS EMPTY 



LO 
LO 
LO 
CP 



A,(THEA0J» 

«!(TTAIL_0) 
B 



Retrieve value in Head pointer index 

Retrieve value in Tail pointer index 
Compare; if Head-Tail then buffer is empty 
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488 


000ft 


20 


24 






♦ 


JR NZ,??0001 


If not empty, jump over next code sectio 


489 












•f ; 






490 












♦ ; BUFFER 


EMPTY - TURN OFF UART , SET TRftN-ON FLAG TO 0, EXIT ROUTINE 


491 












♦ j 






492 


OOOC 


3E 


28 






♦ 


LD A.28H 

OUT (SIO AC), A 

XOR A 


Code for Reset TX Pending in UIR1 


493 


OOOE 


D3 


71 






♦ 


Send to UART. TX interrupts now stopped 


494 


0010 


ftF 








♦ 


Clear A register 


49S 


0011 


32 


00 


00 


E 


+ 


LD (TONO),A 


Flag now indicates transmitter off 


496 












*; 






497 












♦ -.SEND HOST ft TX EMPTY INTERRUPT - CHECK SEMAPHORE REG. FIRST 


498 












♦??0002 






499 


0014 


3fi 


02 


80 




LD A.(SEMREG) 


Retrieve contents of Semaphore register 


500 


0017 


CB 


7F 






+ 


BIT 7,A 

JP NZ,??0002 


Is bit 7 set? If so check again else cont. 


SOI 


0019 


C2 


14 


00 


C 


♦ 




S02 












♦ j 






S03 












♦;SEMAPHORE REGISTER SET - SEND INTERRUPT TO HOST & RELEASE SEMAPHORE 


S04 












♦ ; 






SOS 


001C 


21 


00 


CO 




+ 


LO HL.INT CONO 


Retrieve address of Int Cond register 


S06 


001 F 


CB 


C6 






♦ 


SET PORTO.THL] 
LD HL.ICR Tflfi 


Set bit for Port Specific interrupt 
Retrieve address of ICR TAB 


S07 


0021 


21 


00 


00 


E 


♦ 


S08 


0024 


11 


00 


00 




♦ 


LO DE, PORTO 


Get index to ICR TAB 


S09 


0027 


19 








♦ 


AOD HL.OE 


Obtain effective address 


SIO 


0028 


CB 


C6 






♦ 


SET TX ICR.(HL) 
LO (SEM REG), A 
jp ??000"3 


Set correct bit in ICR TAB 


Sll 


002ft 


32 


02 


80 




♦ 


Clear bit 7 of sem. reg by writing to it 


S12 


0020 


C3 


42 


00 


C 


♦ 


Go to end of routine 


513 












♦ ; 






S14 












♦ RETRIEVE CHARACTER FROM FIFO AND INCREMENT POINTERS 


51S 












♦; 

♦??0001 






516 


0030 


16 


C7 






LO O.TX BASE 


Retrieve the base upper byte of pointer 
Get lower byte of head pointer index 


517 


0032 


3ft 


00 


00 


E 


+ 


LD A,(THEAD~0) 
ADO A.TFIFOJF 


S18 


0035 


C6 


no 






♦ 


Add base lower byte to index 


S19 


0037 


SF 








+ 


LO E,A 


Save head pointer so can use A register 


520 


0038 


1ft 








♦ 


LD A.(DE) 

OUT (SIO AD), A 

LD A,E ~ ~ 


RETRIEVE CHARACTER 


521 


0039 


D3 


70 






♦ 


Send character to UART 


522 


0038 


78 








♦■ 


Get lower byte again 


523 


003C 


3C 








♦ 


INC A 


Increment lower byte of head pointer 


524 


0030 


E6 


OF 






♦ 


AND TMSK 


TMSK isolates lower nibble (index) 


S2S 


003F 


32 


00 


00 


E 


♦ 


LD (THEfiD_0),A 


Save updated pointer (lower byte) 


526 
527 


0042 


09 








♦f?0003 


EXX 




528 


0043 


08 








♦ 


EX AF,AF» 




529 


0044 


FB 








•4- 


EI 




530 


0045 


EO 


40 






♦ 


RETI 




532 












; TRANSMIT ISR FOR PORT #1 




534 


0047 










TX_1 


TX_ISR SI0_0_BC,T0NI ,THEAD_1 ,SI0_0_BD,TFIF0_1 ,TTAIL_1 .P0RT1 


53S 












+ ; 






536 


0047 


09 








♦. 


EXX 


JCAUTION If this routine is interrupted, 


537 


0048 


08 








+ 


EX ftF.AF' 


use push and pop or may lose reg. data 
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538 












♦; 






539 












♦;TEST IF TX BUFFER IS EMPTY 




540 












♦ ; 






S41 


0049 


3ft 


00 


00 


E 


♦ 


LD A, (THE AD 1) 
LD B.A 


Retrieve value in Head pointer index 


S42 


004 C 


47 








♦ 




543 


0040 


3ft 


00 


00 


E 


♦ 


LO A,(TTAIL_1) 


Retrieve value in Tail pointer index 
Compare; if Head'Tail then buffer is empty 
If not empty, jump over next code sectio 


544 


OOSO 


68 








♦ 


CP B 


545 


005 1 


20 


24 






♦ 


JR NZ,??0004 


546 












+ • 






547 












♦;BUFFER 


EMPTY - TURN OFF UART. SET TRAN-ON FLAG TO 0. EXIT ROUTINE 


548 












♦ ; 






549 


0053 


3E 


28 






♦ 


LO A.28H 

OUT (SIO BC),A 

XOR A 


Code for Reset TX Pending in UR1 


SSO 


0055 


D3 


73 






♦ 


Send to UART. TX interrupts now stopped 


551 


00S7 


ftF 








♦ 


Clear fl register 


SS2 


0058 


32 


00 


00 


E 


♦ 


LO (TONl).A 


Flag now indicates transmitter off 


S53 












♦ ; 






5S4 












♦;SENO HOST A TX EMPTY INTERRUPT - CHECK SEMAPHORE REG. FIRST 


555 
SS6 


OOSB 


3ft 


02 


80 




♦??0005 


LD A,(SEM_REG) 


Retrieve contents of Semaphore register 


S57 


005E 


CB 


7F 






♦ 


BIT 7.A 

JP NZ,??0005 


Is bit 7 set? If so check again else cont. 


558 


0060 


C2 


SB 


00 


C 


♦ 




SS9 












♦ ; 






S60 












♦{SEMAPHORE REGISTER SET - SEND INTERRUPT TO HOST & RELEASE SEMAPHORE 


561 












♦ ; 






562 


0063 


21 


00 


CO 




♦ 


LD HL.INT CONO 
SET P0RT1.THL) 
LD HL.ICR TA6 


Retrieve address of Int Cond register 


563 


0066 


CB 


CE 






♦ 


Set bit for Port Specific interrupt 
Retrieve address of ICR TAB 


S64 


0068 


21 


00 


00 


E 


♦ 


S65 


006B 


11 


01 


00 




♦ 


LD DE.PORTl 


Get index to ICR TAB ~ 


566 


006E 


19 








♦ 


ADO HL ,DE 


Obtain effective address 


567 


006 F 


CB 


C6 






♦ 


SET TX ICR.fHL} 
LD (SEM REG), A 
JP ??00S6 


Set correct bit in ICR TAB 


S68 


0071 


32 


02 


80 




♦ 


Clear bit 7 of sem. reg by writing to it 


569 


0074 


C3 


89 


00 


C 


♦ 


Go to end of routine 


570 












♦ ; 






571 












♦ -.RETRIEVE CHARACTER FROM FIFO AND INCREMENT POINTERS 


572 
573 


0077 


16 


C? 






♦i?0004 


LO D.TX BASE 


Retrieve the base upper byte of pointer 


574 


0079 


3ft 


00 


00 


E 


♦ 


LD ft,(THEA& 1) 
ADO A.TFIFO T 


Get lower byte of head pointer index 


575 


007C 


C6 


90 






♦ 


Add base lower byte to index 


576 


007E 


SF 








♦ 


LO E.A 


Save head pointer so can use A register 


577 


007 F 


1ft 








♦ 


LD A.(DE) 

OUT (SIO 6 BO), A 

LO A.E 


RETRIEVE CHARACTER 


578 


0080 


03 


72 






♦ 


Send character to UART 


S79 


0082 


78 








♦ 


Get lower byte again 

Increment lower byte of head pointer 


580 


0083 


3C 








♦ 


INC A 


581 


0084 


E6 


OF 






♦ 


AND TMSK 


TMSK isolates lower nibble (index) 


582 


0086 


32 


00 


00 


E 


♦ 


LD (THEAD_1),A 


Save updated pointer (lower byte) 


583 
584 


0089 


09 








♦4?O0O6 


EXX 




S85 


008ft 


08 








♦ 


EX AF.AF' 




S86 


008B 


FB 








♦ 


EI 




587 


008C 


ED 


4D 






♦ 


RETI 




589 












; TRANSMIT ISR FOR PORT #2 





ERR LINE 


ADOR 


Bl 


B2 


B3 B4 




591 


008E 










592 












593 


008E 


09 








594 


008F 


08 








595 












596 












597 












598 


0090 


3A 


00 


00 


E 


599 


0093 


47 








600 


0094 


3A 


00 


00 


E 


601 


0097 


B8 








602 


0098 


20 


24 






603 












604 












605 












606 


009A 


3E 


28 






607 


009C 


03 


Bl 






608 


009E 


AF 








609 


009F 


32 


00 


00 


E 


610 












611 












612 












613 


00A2 


3A 


02 


80 




614 


OOAS 


CB 


7F 






615 


00A7 


C2 


A2 


00 


C 


616 












617 












618 












619 


OOAA 


21 


00 


CO 




620 


OOAD 


CB 


D6 






621 


OOAF 


21 


00 


00 


E 


622 


0082 


11 


02 


00 




623 


OOBS 


19 








624 


00B6 


CB 


C6 






625 


00B8 


32 


02 


80 




626 


OOBB 


C3 


00 


00 


C 


627 












628 












629 












630 


OOBE 


16 


C7 






631 


OOCO 


3A 


00 


00 


E 


632 


00C3 


C6 


80 






633 


00C5 


5F 








634 


00C6 


1A 








63S 


00C7 


03 


BO 






636 


00C9 


7B 








637 


OOCA 


3C 








638 


OOCB 


E6 


OF 






639 


OOCD 


32 


00 


00 


E 


640 












641 


0000 


09 








642 


00D1 


08 








643 


0002 


FB 









280 ASSEMBLER VER 3.0MR 



PAGE 



TX 2 



TX_ISR SIO_l_AC,TON2,TH£AD_2,SIO_l_AO,TFIF0_2,TTAIL_2,PORT2 



EXX 
EX 



AF.AF' 



♦;TEST IF TX BUFFER IS EMPTY 



LO 
LD 
LO 
CP 
JR 



A,(TH£A0_2) 

ft*. (TTAIL_2) 

B 

NZ,??0007 



JCAUTION If this routine is interrupted, 
use push and pop or may lose reg. data 



Retrieve value in Head pointer index 

Retrieve value in Tail pointer index 

Compare; if Head*Tail then buffer is empty 

If not empty, jump over next code sectio 



♦;BUFFER EMPTY - TURN OFF UART, SET TRAN-ON FLAG TO 0, EXIT ROUTINE 



LO 
OUT 
XOR 
LO 



A-28H Code for Reset TX Pending in WR1 

(3I0_1 AC), A Send to UART. TX interrupts now stopped 

A ~" Clear A register 

(T0N2),A Flag now indicates transmitter off 

♦ ; 

♦;SEND HOST A TK EMPTY INTERRUPT - CHECK SEMAPHORE REG. FIRST 

♦??0008 LO A, (SEM REG) Retrieve contents of Semaphore register 

♦ BIT 7,A ~ Is bit 7 set? If so check again else cont. 

♦ JP NZ,??0008 

♦•SEMAPHORE REGISTER SET - SEND INTERRUPT TO HOST & RELEASE SEMAPHORE 

♦ ; 

♦ LO HL.INT COM) Retrieve address of Int Cond register 

♦ SET P0RT2.THLJ Set bit for Port Specific interrupt 

♦ LO HL.ICR TAB Retrieve address of ICR TAB 

♦ LO 0E.PORT2 Get index to ICR TAB 

♦ ADD HL.DE Obtain effective address 

♦ SET TX ICR.(HL) Set correct bit in ICR TAB 

♦ LO (SEM REG), 4 Clear bit 7 of sem. reg by writing to it 

♦ JP ??000"9 Go to end of routine 

♦ •RETRIEVE CHARACTER FROM FIFO AND INCREMENT POINTERS 

Retrieve the base upper byte of pointer 
Get lower byte of head pointer index 
Add base lower byte to index 
Save head pointer so can use A register 
RETRIEVE CHARACTER 

Send character to UART 
Get lower byte again 
Increment lower byte of head pointer 
TMSK isolates lower nibble (index) 
Save updated pointer (lower byte) 



►$?0007 



LO D,TX BASE 
LO A,(THEAD"2) 
A.TFIFO 2 
E.A 

(SI0_ija>),« 

A* 

TMSK 

(T«EAD_2),« 



A00 

LD 

LO 

OUT 

LD 

INC 

AND 

LO 



►??0009 



EXX 
EX AF.AF-' 
EI 



ERR LINE 
644 



ADOR Bl B2 83 B4 
0003 ED 40 
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PAGE 



RET I 



646 



TRANSMIT ISR TOR PORT «3 



648 


0005 










649 












650 


0005 


09 








6S1 


0006 


08 








652 












653 












654 












655 


0007 


3A 


00 


00 


E 


656 


OOOA 


47 








6S7 


OOOB 


3A 


00 


00 


E 


658 


OOOE 


B8 








659 


000F 


20 


24 






660 












661 












662 












663 


00E1 


3E 


28 






664 


00E3 


03 


B3 






665 


00E5 


AF 








666 


00E6 


32 


00 


00 


E 


667 












668 












669 












670 


00E9 


3A 


02 


80 




671 


OOEC 


CB 


7F 






672 


OOEE 


C2 


E9 


00 


C 


673 












674 












675 












676 


OOFl 


21 


00 


CO 




677 


00 F4 


CB 


OE 






678 


00 F6 


21 


00 


00 


E 


679 


00 F9 


11 


03 


00 




680 


00 FC 


19 








681 


00 FD 


CB 


C6 






682 


OOFF 


32 


02 


80 




683 


0102 


C3 


17 


01 


C 


684 












685 












686 












687 


010S 


16 


C7 






688 


0107 


3A 


00 


00 


E 


689 


010A 


C6 


70 






690 


01OC 


5F 








691 


0100 


1A 








692 


010E 


03 


B2 






693 


0110 


7B 









TX 3 



TX_ISR SI0_1_BC, T0N3 , THEAD_3 ,$S0_1_BD , TFI F0_3 , TTA I L_3 , P0RT3 



EXX 
EX 



AF.AF* 
♦;TEST IF TX SUFFER IS EMPTY 



LD 
LD 
LO 
CP 
JR 



A,<T«£AD_3) 

A',<TTAIL_3) 

B 

NZ,??0010 



JCAUTEBN H*f this routine is interrupted, 
use push and pop or may lose reg. data 



Retrieve value in Head pointer index 

Retrieve value in Tail pointer index 
Compare; if Head*Tail then buffer is empty 
If not empty, jump over next code sectio 



♦;BUFFER EMPTY - TURN OFF UART, SET TRAN-ON FLAG TO 0, EXIT ROUTINE 



LO A.28H 

OUT fSIO 1JBC),A 

XOR A 

LD (TON3),A 



Code for Reset TX Pending in UR1 

Send to UART. TX interrupts now stopped 
Clear A register 
Flag now indicates transmitter off 



♦ ;SEND HOST ATX EMPTY INTERRUPT - CHECK SEMAPHORE REG. FIRST 

♦??0011 LD A,(SEMJREG) Retrieve contents of Semaphore register 

♦ BIT 7,* Is bit 7 set? If so check again else cont. 

♦ JP NZ,??0011 

♦ •SEMAPHORE REGISTER SET - SENO INTERRUPT TO HOST & RELEASE SEMAPHORE 



LO 

SET 

LD 

LO 

A00 

SET 

LO 

JP 



HL.INT COND 

P0RT3.7/HL) 

HL.ICR TAB 

OE.P0RT3 

HL.DE 

TX TCR.fHL) 

fSPM REG), A 

??00T2 



Retrieve address of Int Cond register 
Set bit for Port Specific interrupt 

Retrieve address of ICR TAB 
Get index to ICR TAB ~ 

Obtain effective address 

Set correct bit in ICR TAB 

Clear bit 7 of sem. reg by writing to it 
Go to end of routine 



♦JRETRIEVE CHARACTER FROM FIFO ANO INCREMENT POINTERS 

♦??0010 LO O.TX BASE 

♦ LO A.fTHEAD" 3) 

♦ ADO A.TFIFO 3 

♦ LD E.A 

♦ LD A, (OE) 

♦ OUT (SIO 1 BO), A 

♦ LO A,£ 



Retrieve the base upper byte of pointer 
Get lower byte of Bead pointer index 
Add base lower byte to index 
Save head pointer so can use A register 
RETRIEVE CHARACTER 

Send character to UART 
Get lower byte again 



ERR LINE ADOR Bl B2 B3 B4 Z80 ASSEMBLER VER 3.0MR PAGE 

♦ INC A Increment lower byte of head pointer 

♦ AND TrlSK TMStC isolates lower nibble (index) 

♦ LD (THEAD_3),A Save updated pointer (lower byte) 

♦??O012 EXX 

♦ EX AF.AF' 

♦ EI 

♦ RETI 

703 011C END 
ASSEMBLER ERRORS » 



INE 


ADOR 


Bl B2 B3 B4 


694 


0111 


3C 


695 


0112 


E6 OF 


696 


0114 


32 00 00 


697 






698 


0117 


D9 


699 


0118 


08 


700 


0119 


FB 


701 


011A 


ED 4D 



ERR LINE POOR Bl B2 83 84 
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PAGE 



1 
2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

456 

457 

458 

460 
461 
462 
463 
464 
465 
466 
467 
468 



SOURCE: &MXTMR 
PROGRAMMER: LIZ POTEET 

4 CHANNEL DIO MUX (FORDYCE) 



TIMER INTERRUPT SERVICE ROUTINE 
FOR 16 MILLSEC. TIME OUT 



*xxxxxxxxx*x*xxxxxxxxxxxsxxxxxxxxxxxxxxxsxxxxxsxxxxxxxxxx*xxxxx 

* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 

* RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 

* REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE UITHOUT 
« THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
txxxxxxx«x»xxxxxxxxxx*xxxxsxxxxxxxx*xxx*xxxxxxxx*xx*xxxxxxxxxxx 

LIST B 
NAME MXTMR 
COPY &MX4EQUS 
LIST S 

PUBLIC TMR_ISR 

tx*«xsxx*xssxxxxx*xxxxxxxx*txxxxx*xxx*x*xxxxxxxxx»xxxxxsxxxxxxxxxxx 
NAME: TMR_ISR 

DESCRIPTION: 

This ISR is called every 16 milliseconds when the CTC downcounts 
to zero. The purpose of this routine is to send a Timer interrupt 
to the host. 

xxxxxxxxxxxxxxxxxxxxxxxxxxsxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



470 

472 0000 

473 0000 09 

474 0001 08 

476 

478 0002 3A 02 80 

479 0005 CB 7F 

480 0007 C2 02 00 

482 

484 OOOA 21 00 CO 

485 0000 CB F6 



TMRISR: 



CSEG 



EXX 

EX AF.AF' 



CAUTION! IF ANOTHER ISR CAN INTERRUPT, USE 
PUSH & POP SO THAT DONT LOSE REG. CONTENTS 



; CHECK SEMAPHORE BEFORE SETTING INTERRUPT 



TM1: 



LD A.fSEtt REG) 
BIT 7,A ~ 
JP NZ.TM1 



Get contents of Sem Reg 

If bit 7«0 continue else recycle 



SEMAPHORE REG. SET - SEND INTERRUPT TO HOST AND RELEASE SEM. REGISTER 



LO HL.INT CONO 
SET 6,(HL)~ 



Get address of Int Cond register 
Set bit for timer interrupt 



ERR LINE ADDR Bl B2 B3 84 

486 OOOF 32 02 80 

488 0012 09 

489 0013 08 

490 0014 FB 

491 0015 ED 40 

492 0017 



LO 

EXX 
EX 

EI 

RETI 

ENO 



Z80 ASSEMBLER VER 3.0MR 
(SEM.REG).A Clear bit 7 of Sem. 

AF.AF' 



PAGE 2 
reg by writing to it 



ASSEMBLER ERRORS 



ERR LINE flOOR Bl B2 B3 B4 
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PAGE 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

4S4 

45S 

456 

457 

4S8 

459 

460 

461 

463 

464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
47S 
476 
477 
478 
479 
480 
481 
482 

484 

486 0000 

487 0000 D9 

488 0001 08 



SOURCE: &MXHST 
PROGRAMMER: LIZ POTEET 

4 CHANNEL DIO MUX (FORDYCE) - HOST INTERRUPT SERVICE ROUTINE 

(GENERATED BY CTC INTERRUPT) 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxsxxxxxxxxxxxxxxxxx 

* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 

» RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 

« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 

« THE PRIOR WRITTEN CONSENT OF HEULETT-PACKARD COMPANY. 

*xxxxxxxxxx*xxx**xxxxxxxxxxxx*xxxxxxxxxxxxxx*xxxxxxxxxxxxx«sxxs 

NAME MXHST 
COPY &MX4EQUS 
LIST S 

PUBLIC HSTINT 

PUBLIC EEE2,EEE3,EEE4,EEE5,EEE6,EEE7 

EXTRN ISRPT0,ISRPT1,ISRPT2,ISRPT3 
EXTRN TMPTAB.CMNO TAB 
EXTRN M0D0UT,TMR0FF,nX4ST 

s**xxx*xs*»s*xxs*xxxxxxxxxxxx«xxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxx 
HOST INTERRUPT SERVICE ROUTINE 

This file contains the service routine which is invoked by CTC-0 
when the host puts an interrupt into the COMMAND register. This 
routine empties the contents of the CMND TAB and COMMAND registers 
and begins checking the bits in both to determine what type of host 
interrupt was requested. When the interrupt has been interpreted and 
and serviced, the program jumps back to the beginning of this file to 
see if the host sent another interrupt during the course of the 
program. If the COM REG is empty, the program will jump to the exit. 
If there is data in the C0M_REG, the program will begin servicing 
that data. In other words, it is possible for this routine to service 
more than one host interrupt. The reason for this is that if the 
host sends an interrupt during the course of this routine (when 
interrupts are disabled) the card will not get it due to the inability 
of the CTC to buffer interrupts. 

FILES CALLEO: HXPT0, HXPT1, MXPT2, MXPT3, MXMOO, EXTMR, MX4ST 

**xxxx***x«xxxx*xxxxxxxxx*xxxxxxxxxxxxxxxxx»xxxxxxxxxxxxxxxxx«xs*xx«« 



HSTINT : 



CSEG 



EXX 

EX AF.AF' 



CAUTION! IF ANOTHER ISR CAN INTERRUPT. USE 
PUSH & POP SO THAT OONT LOSE REG. CONTENTS 



ERR LINE 


ADDR 


81 


B2 


83 B4 
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490 












GRAB 


SEMAPHORE 




492 


0002 


3A 


02 


80 


EEEl: 


LO 


A, (SEM REG) 


Contents of SEM REG to A reg. 


493 


0005 


CB 


7F 








BIT 


7,A ~ 
NZ.EEE1 


Test bit 7. If*l then recycle 


494 


0007 


C2 


02 


00 


C 




JP 


' 


496 












RETRIEVE VALUE IN COMMAND REG. & CMND_TAB. 


498 


OOOA 


3A 


01 


CO 






LD 


A, (COM REG) 




499 


0000 


FE 


00 








CP 





IS THE COMMAND REG. EMPTY? 


500 


OOOF 


20 


03 








JR 


N2.TST 
EEE9 


NO 


501 


0011 


C3 


5E 


00 


C 




JP 


YES - EXIT ROUTINE 


503 


0014 


01 


04 


00 


TST: 


LD 


BC.4 


Writing contents of CMND TAB to TMPTAB 


504 


0017 


11 


00 


00 


E 




LD 


DE, TMPTAB 


so that I can release the semaphore 


505 


OOlfl 


21 


00 


00 


E 




LD 


HL.CMND TAB 


quickly. 


S06 


0010 


ED 


BO 








LOIR 






508 












CLEAR 


COMMAND REG. AND CMNO 


_TAB 


S10 


001F 


SF 










LO 


E,A 


Save COMMANO reg value in E reg. 


511 


0020 


AF 










XOR 


A 




512 


0021 


32 


01 


CO 






LO 


(COM REG). A 
HL.CMNO TAB 


Clear COMMANO register 


S13 


0024 


21 


00 


00 


E 




LO 


Get address if command table 


514 


0027 


77 










LD 


r ,.»- 


Clear 1st byte in CMND-TAB 


515 


0028 


23 










INC 




516 


0029 


77 










LO 


r ,.» 


Clear 2nd byte 


517 


002A 


23 










INC 




518 


002B 


77 










LO 


ffi 1 '-' 


Clear 3rd byte 


519 


002C 


23 










INC 




520 


0020 


77 










LD 


(HL),A 
(SEM_REG) ,A 


Clear 4th byte 


521 


002E 


32 


02 


80 






LO 


Release SEM_REG by writing to it 


S23 












BEGIN DETERMINING WHICH BITS IN CMNDJTAB (NOW IN TMPTAB) ARE SET 


524 




















525 












NOTE 


: The 


following jumps 


should be treated as subroutine jumps. 


526 












The 


jump instructions are 


used instead because they are faster and 


527 












there is a 


time constraint 


on this code. 


528 




















529 












REG. 


USAGE 


- The E register is used to hold the contents of the A 


530 












register du 


ring the jump to subroutine. In other words, the E 


531 












register must not be used 


in any of the following routines. 


533 


0031 


7B 










LD 


A,E 




534 


0032 


IF 










RRA 




Rotate Bit of COMMAND reg data to Carry 


535 


0033 


5F 










LD 


E,A 


Store temporarily in E 


ERR LINE 


BOOR 


81 


B2 


B3 84 
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536 


0034 


DA 


00 


00 


E 




JP 


C.ISRPTO 


If bit 0«1, jmp to Pt interrupt routine 


538 


0037 


78 






E 


:EE2: 


LD 


A.E 


Retrieve rotated pattern of A register 


539 


0038 


IF 










RRA 




Rotate bit 1 into Carry flag 


540 


0039 


5F 










LD 


E,A 


Store value temporarily in E reg. 


541 


0030 


DA 


00 


00 


E 




JP 


C.ISRPT1 


If bit 1*1, jmp to port 1 interrupt routine 


S43 


0030 


7B 






E 


IEE3: 


LD 


A.E 


Retrieve rotated bit pattern again 


544 


003E 


IF 










RRA 




Rotate bit 2 into Carry flag 


545 


003F 


SF 










LD 


E,A 


Save temporarily in E register 


S46 


0040 


DA 


00 


00 


E 




JP 


C.ISRPT2 


If bit 2*1, jmp to port 2 interrupt routine 


548 


0043 


78 






E 


:EE4: 


LO 


A,E 


Retrieve rotated bit pattern again 


549 


0044 


IF 










RRA 




Rotate bit 3 into Carry flag 


550 


0045 


SF 










LD 


E,A 


Save bit pattern temporarily in E reg. 


SSI 


0046 


DA 


00 


00 


E 




JP 


C.ISRPT3 


If bit 3*1, jmp to port 3 interrupt routine 


553 


0049 


78 






E 


:ees: 


LD 


fl,E 


Retrieve rotated bit pattern again 


554 


004A 


IF 










RRA 




Rotate bit 4 into Carry flag 


S55 


0048 


SF 










LD 


E.A 


Save bit pattern temporarily in E reg. 


556 


004C 


DA 


00 


00 


E 




JP 


C.MODOUT 


If bit 4*1, jmp to Modem Out. line routine 


558 


004 F 


78 






E 


:EE6: 


LO 


A,E 




559 


0050 


IF 










RRA 




Rotate bit S into Carry flag 


560 


0051 


SF 










LO 


E,A 




561 


0052 


DA 


00 


00 


E 




JP 


C.TMROFF 


If bit 5*1, jmp to Timer On/Off routine 


S63 


0055 


7B 






E 


IEE7: 


LD 


A,E 




564 


0056 


IF 










RRA 




Rotate bit 6 into Carry flag 


565 


0057 


SF 










LD 


E,A 




566 


0058 


DA 


00 


00 


E 




JP 


C.MX4ST 


If bit 6*1, jmp to beginning of Self Test 


S$8 


005B 


C3 


02 


00 


C E 


•EE8: 


JP 


EEEl 


Return to beginning of routine 


569 


005E 


09 






E 


EEE9: 


EXX 






570 


OOSF 


32 


02 


80 






LO 


(SEM REG), A 
AF.AF* 


Release SEM_REG by writing to it 


571 


0062 


08 










EX 




572 


0063 


FB 










EI 






573 


0064 


ED 


40 








RET I 






574 


0066 












END 






ASSEM8LER ERRORS 


m 
















ERR LINE ADDR Bl B2 B3 B4 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

455 

456 

457 

4S8 

459 

460 

462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
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SOURCE: &MXEXT 
PROGRAMMER: LIZ POTEET 

4 CHANNEL 010 MUX (FORDYCE) - EXTERNAL STATUS INTERRUPT ISR'S 

***x***t*******«**«****«»***s**« ******«***********«*««»»»*»**** 
« fC) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 
« RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 
« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 
« THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 

LIST X 
NAME MXEXT 
COPY 4MX4EQUS 
LIST S 

PUBLIC EXJ>,EX_l,EX_2,EX_3,MDM3_SU8,MDm_SUB 

EXTRN RBRK O.RBRK l.RBRK 2.RBRK 3, STAT O.STAT 1 
EXTRN STAO,STAT~3,M0DMlIN,M0DFl_MASK 

«*«**«x*x********s**«»»**x»*»«»*»**»*s***«t«*xs*»**«*»*«*»«*«*****» 
EXTERNAL STATUS INTERRUPT ROUTINES 

These ISR's are called when one of the SIO channels has a trans- 
ition on either the Break, DCD, CTS, or SYNC inputs. A TX underrun 
will also cause this interrupt although these routines will not take 
any action if that is what has triggerd the ISR. This file contains 
the External Status ISR's for all four ports. However, each of the 

rorts expects different combinations of transitions. Therefore the 
SR's art different for each. The only thing in common is that each 
of the ports may get a Break condition. The following are the valid 
transitions for each port and an explanation of what these lines 
represent. 

Beginning or end of Break occurence 
Receiver Ready modem line change 
Clear to Send modem line change 
Data Mode modem line change • 

Beginning or end of Break occurence 
Incoming Call modem line change 

Beginning or end of Break occurence 

Beginning or end of Break occurence 

The Break processing code of each ISR is contained in a macro 
called BREAK. This macro is part of the file &MX4EQU. 

UPON EXIT OF BREAK MACRO: 

B Register contains contents of SIO Read Reg. #0 



PORT 


- 


BREAK 
DCD 
CTS 
SYNC 


PORT 


i - 


BREAK 
DCD 


PORT 


2 - 


BREAK 


PORT 


3 - 


BREAK 



ERR LINE 


POOR 


Bl 


B2 


B3 B4 




493 
494 












496 












498 












500 
501 


0000 
0001 


09 
08 








503 












505 
506 
507 
508 
509 


0002 
0004 
0007 
OOOA 
0000 


OE 
21 

11 
CD 
CO 


71 
00 
00 
4E 
80 


00 
00 
00 
00 


E 
E 

C 
C 


511 
512 

513 
514 


0010 
0011 
0012 
0013 


09 
08 
FB 
ED 


40 







516 
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; External Status interrupts have already been set 

•******»**»+ S*XSS***SS***********XS*S**S**SS****S*X*«S***»***SSS**S*** 



CSEG 
; EXTERNAL STATUS ISR FOR PORT #0 



EX_0 



EXX 

EX AF.AF* 



JCAUTION - IF THIS ROUTINE IS INTERRUPTED 
USE PUSH & POP ELSE MAY LOSE REG. VALUES 



d 



;WAS THE INTERRUPT CAUSED BY BEGINNING OR END OF BREAK? 



LD C.SIO AC 
LD HL,RBR"K~0 
LD DE,STAT~0 
CALL BRK SUB" 
CALL M0M3"_SUB 



PARAMETERS FOR BREAK SUBROUTINE 



EXX 
EX 
EI 
RETI 



AF.AF' 



EXTERNAL STATUS ISR FOR PORT »1 



518 
519 


001S 
0016 


09 
08 






523 
524 
525 
526 


0017 
0019 
001C 
001F 


OE 73 
21 00 
11 00 
CD 4E 


00 
00 
00 


E 

E 
C 


528 
529 
530 


0022 
0025 


CD AF 
09 


00 


C 



EX_1 



EXX 
EX 



JCAUTION - IF THIS ROUTINE IS INTERRUPTED 
USE PUSH & POP ELSE MAY LOSE REG. VALUES 



AF.AF" 
;UAS THE INTERRUPT CAUSED BY BEGINNING OR ENO OF BREAK? 



LO C.SIO BC 
LD HL,RBR"K~1 
LD DE,STAT~1 
CALL BRKSUB" 



PARAMETERS FOR BREAK SUBROUTINE 



;CALL SUBROUTINE WHICH DETERMINES WHETHER THE DCD INPUT LINE CHANGEO 
CALL M0M1 SUB 
EXX 



'V. 



ERR LINE AOOR Bl B2 B3 B4 



S31 
532 
533 



535 



0026 
0027 
0028 



08 
FB 
ED 40 



552 



EX 
EI 
RETI 
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; EXTERNAL STATUS ISR FOR PORT #2 



537 
538 


002A 
002B 


09 
08 




EX_2 


EXX 

EX AF.AF' 


S40 








;UAS 


THE INTERRUPT CAUSE 


542 
543 
544 
S4S 


002C 
002E 
0031 
0034 


OE 81 
21 00 00 
11 00 00 
CO 4E 00 


E 
E 
C 




LD C.SIO 1 AC 
LO HL,RBR"K"2 
LD 0E,STAT~2 
CALL BRK.SUB 


547 
S48 
S49 
550 


0037 
0038 
0039 
003A 


09 
08 
FB 
EO 40 






EXX 

EX AF.AF' 

EI 

RETI 



JCAUTION - IF THIS ROUTINE IS INTERRUPTED 
USE PUSH & POP ELSE MAY LOSE REG. VALUES 



PARAMETERS FOR BREAK SUBROUTINE 



; EXTERNAL STATUS ISR FOR PORT #3 



554 
555 


003C 
0030 


09 
08 




EX_3 


EXX 

EX AF.AF' 


557 








;UAS 


THE INTERRUPT CAUSED 


5S9 
560 
561 
S62 


003E 
0040 
0043 
0046 


OE B3 
21 00 00 
11 00 00 
CO 4E 00 


E 
E 
C 




LO C.SIO 1 BC 
LO HL.RBRfK 3 
LO OE.STAT 3 
CALL 8RK_SUB 


S64 
565 
S66 
567 
568 


0049 
004 A 
004B 
004C 


09 
08 
FB 
EO 40 




! 


EXX 

EX AF.AF* 

EI 

RETI 



JCAUTION - IF THIS ROUTINE IS INTERRUPTED 
USE PUSH & POP, ELSE MAY LOSE REG. VALUES 



PARAMETERS FOR BREAK SUBROUTINE 



LINE 


ADOR 


Bl 


B2 B3 


S69 








S70 








S71 








S72 








S73 








574 








S7S 








576 








577 








578 








579 








580 








581 








582 








583 








S84 








585 








586 








587 








588 








589 








590 








591 








592 








S93 








S94 








S9S 








596 








597 








598 








599 








600 








601 








602 


004E 


ED 


40 


603 


0050 


3E 


10 


604 


0052 


ED 


79 


605 


0054 


CB 


46 


606 


0056 


20 


11 


607 


0058 


CB 


78 


608 


OOSA 


28 


23 


609 








610 








611 








612 


005C 


CB 


C6 


613 


005E 


3E 


01 


614 


0060 


ED 


79 


615 


0062 


3E 


07 


616 


0064 


EO 


79 


617 


0066 


C3 


7F 00 


618 








619 








620 








621 








622 


0069 


CB 


78 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SUBROUTINE NAME: BRK_SUB 

DESCRIPTION: This purpose of this subroutine is to detect both the 
beginning of Break and the end of Break in the SIO. The general 
process of this routine is as follows: 



IF START -OF-BREAK THEN 
BEGIN 

BREAK FLAG:«1 
TURN OFF RX INTERRUPT 
END 
ELSE 

IF ENO-OF-BREAK THEN 
BEGIN 

BREAK FLAG:«0 

ERROR RESET THE CARD 



(»BRK flag«0 and Break bit in SI0-1 
(»To prevent interrupt for null char 
(*BRK flag»l and Break bit in SIO-O 



(*In case SIO is programmed for odd 

Sarity - null causes parity error 
"'assuming will get RX interrupt 
REINABLE RX INTERRUPT for the null char, when reinable 

END 

PARAMETERS * 

«SI0*- SIO AC, SIO BC, SIO 1 AC, SIO BC passed in C reg 
•BRK - RBRK" 0\ RBRK T, RBRK 2 ~RB"RK 3 passed in HL reg 

•STAT - STAT.0, STAT_1 , STAT_£, STAT.3 passed in OE reg 

UPON EXIT - B-REGISTER CONTAINS CONTENTS OF SIO REAO REGISTER #0 

xxxxxxxxxxxxxxxsxxs*xxxxx*xxxxxxxxxx»x*xxxtxx*xxxxxxxxxxxxxxxxxsxxxxx* 



6RK SUB: IN B,(C) 

LD A.10H 

OUT (C),A 

BIT 0,(HL) 

JR NZ.B1 

BIT 7,8 

JR 2,82 



Get contents of SIO Read Reg. 
Reset the Ext/Status Interrupt 

Ulas start of break previously detected? 

Yes 

Is this a Break Interrupt? 

No, go to exit 



START OF BREAK DETECTED - SET BRK FLAG AND TURN OFF RX INTERRUPTS 



SET 0,(HL) 

LD A.l 

8 T #•" 

OUT (C),A 

JP 82 



Set BRK flag to 1 

Turn off RX interrupts - This prevents 
the interrupt for the null character 
preempting the one for end of break 

Go to exit 



END OF BREAK DETECTED - CLEAR BRK FLAG, ERROR RESET, SET STATUS BYTE, 
AND REENABLE RX INTERRUPTS 



Bl: 



BIT 7,B 



Is this the end of bread detection? 



ERR LINE 


ADDR 


Bl 82 


623 


006B 


20 12 


624 


0060 


CB 86 


625 


006 F 


3E 30 


626 


0071 


ED 79 


627 


0073 


62 


628 


0074 


6B 


629 


0075 


CB E6 


630 


0077 


3E 01 


631 


0079 


ED 79 


632 


007B 


3E 17 


633 


0070 


ED 79 


634 






635 


007 F 


C9 


637 






638 






639 






640 






641 






642 






643 






644 






645 






646 






647 






648 






649 






650 






6S1 






6S2 






653 






6S4 






655 






656 






657 






658 






659 






660 






661 






662 






663 






664 






665 






667 


0080 




668 


0080 


78 


669 


0081 


IF 


670 


0082 


IF 


671 


0083 


E6 OE 
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in 



JR 

RES 

LO 

OUT 

LD 

LD 

SET 

LD 

OUT 

LD 

OUT 

RET 



N2.B2 
0,(HL) 
A.30H 
C),A 



n 



L.E 
(C),A 



No - go to exit 

Reset bit of BRK flag 

Error reset the port in case prog, for odd 

Sarity. . .null will cause a parity error 
pper byte of status reg. address to H 
Lower byte of status reg. address to L 
Set bit for Break in Status byte 
Reenable the RX interrupts 



;Return to calling address 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SUBROUTINE NAME: ttDTO^SUB 

DESCRIPTION: The purpose of this subroutine is to detect the status 
of the three modem input lines in SIO channel A and see whether or 
not there has been a change in the lines (i.e. whether the lines 
are the same as recorded in the MODfl IN register). The three lines 
are the DCD, CTS, and SYNC lines which are used as modem lines RR, 
CS, and DM. If there has been a change in the lines, the MODM IN 
register will be change accordingly and an interrupt will be sent 
to the host. The following is a pseudocode version of the following 
routine. 

ROTATE CONTENTS OF READ REG. RIGHT 2 BITS (*To align with MODM IN 

ISOLATE DCD, SYNC, AND CTS BITS 

IF BITS FROM READ REGISTER ARE SAME 

AS CORRESPONDING BITS FROM MODM IN, EXIT 
ELSE 

MODM IN(BITS 1-3) :«READ REG. BITS 

IF MODM IN.ANO.MOOM MASK>0 THEN 

SEND ROST MODEM INPUT LINE CHANGE INTERRUPT 

UPON ENTRY: B REGISTER CONTAINS VALUE OF RRO IN SIO CHA A 
CALLED BY: EX_0 and INIT 

XXXXXXXXXXXXXX«XXXXXXXXXXXXXXXXXXXXXX*XXXXXt*X*X*X**XXX*X*XXXXXXXX 



MDM3_SUB: 



LO A, 8 

RRA 

RRA 

AND ESMSK1 



Contents of SIO Read Reg. to A-reg 
Rotate right two bits positions for a 

fosition match with MODM-IN register 
solate DCD, SYNC, and CTS bits 



ERR LINE 


ADDR 


Bl 


62 


B3 B4 


672 


008S 


47 






673 


0086 


3A 


00 


00 


674 


0089 


4F 






67S 


008ft 


E6 


OE 




676 


008C 


A8 






677 


0080 


28 


IF 




679 










681 


008F 


57 






682 


0090 


79 






683 


0091 


E6 


01 




684 


0093 


BO 






685 


0094 


32 


00 


00 


686 


0097 


7A 






687 


0098 


21 


00 


00 


688 


009B 


A6 






689 


009C 


28 


10 




691 










693 


009E 


3A 


02 


80 


694 


00A1 


CB 


7F 




695 


0003 


C2 


9E 


00 


697 










699 


0OA6 


21 


00 


CO 


700 


00A9 


CB 


EE 




701 


OOAB 


32 


02 


80 


703 


OOAE 


C9 






70S 










706 










707 










708 










709 










710 










711 










712 










713 










714 










71S 










716 
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LD 

LO 

LD 

AND 

XOR 

JR 



B A 

A | (MOOM IN) 

EsnsKi 

B 

Z.E2 



Temporary hold in B-reg 

Get contents of MODM-IN register 

Temporary hold in C-reg 

Isolate RR.DM, &CS bits from MODM-IN 

Change in the modem lines? 

No - go to exit 



;SET NEW BITS IN MODM_IN REGISTER 



LO 

LD 

AND 

OR 

LD 

LD 

LD 

AND 

JR 



D,A 
A.C 

ESMSK2 
B 

moon IN) ,A 

A,D 

HL.MOOMJIASK 



m 



Save XOR'd value in D; holds changed lines 
Get original contents of MODM_IN reg. 
Isolate bit - IC line 
New modem line bits with old IC bit 
Save new value in t"IODtt_IN 
Get changed lines byte- 
Get address of Modem Mask 
Does the host want an interrupt on changes 
No - go to exit 



;SEND HOST A MODEM INPUT CHANGE INTERRUPT - FIRST GRAB SEMAPHORE 



El: 



LD A.fSEM REG) 
BIT 7,A 
JP N2.E1 



Retrieve address of semaphore register 
If bit 7«0, continue, else check again 



;SEM_REG SET - SEND INTERRUPT TO HOST AND RELEASE SEMAPHORE REGISTER 



E2: 



LD HL.INT COND 

SET MOD INT. (HL) 

LD (SEM_REG),A 

RET 



Get address of INT COND register 
Set bit for Modem Input line change 
Clear bit 7 of Sem. reg by writing to it 



txxsxxxx*x***xxxx*xxxxxxxx*xxx*xx****xxxxxxxxxxxxxxxxxxx****s**xxsxx 

SUBROUTINE NAME: MDM1_SUB 

DESCRIPTION: The purpose of this subroutine is to determine whether 
or not the DCD line in SIO channel B changed. This modem line 
represents the IC line. The SIO Read Register is read to determine 
the current status of the OCD line. This bit is then compared with 
bit of the MODM IN register to see if there has been a change. If 
so, bit in M0DM~IN is set to reflect the change and the MOOM MASK 
register is checked to see if the host wants an interrupt. The 
following is a pseudocode version of the routine. 



ERR LINE 


AODR 


Bl 


B2 B3 84 




717 










718 










719 










720 










721 










722 










723 










724 










725 










726 










727 










728 










729 










730 










731 










733 


OOAF 








734 


OOAF 


3A 


00 00 


E 


73S 


00B2 


CB 


58 




736 


00B4 


28 


OC 




738 


00B6 


CB 


47 




739 


00B8 


20 


28 




740 


OOBA 


CB 


C7 




741 


006C 


32 


00 00 


E 


742 


OOBF 


C3 


CB 00 


C 


744 


00C2 


CB 


47 




745 


00C4 


28 


IC 




746 


00C6 


CB 


87 




747 


00C8 


32 


00 00 


E 


749 










751 


OOCB 


21 


00 00 


E 


752 


OOCE 


CB 


46 




753 


OODO 


28 


10 




755 










757 


OOD2 


3A 


02 80 




758 


0005 


CB 


7F 




759 


0007 


C2 


D2 00 


C 
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COMPARE 0C0 BIT WITH IC BIT IN MODM IN REGISTER 
IF NOT EQUAL THEN 
BEGIN 

change ic bit in modm in register to match ocd bit 
retrieve modm mask 

if modm mask 7/ic bit) set then send host an input modem 
line Change interrupt 

END. 
UPON ENTRY: B register contains value of SIO cha B Read Reg. 
CALLED BY: EX_1 and INIT 

XX*XXXXXX******S*XXX*XS****t***XX**XXXXXXXXXX****XXXXXSX*****SXXXXX 



MDM1SUB: 



LD 

BIT 

JR 

BIT 

JR 

SET 

LO 

JP 



A,(MODM_IN) 

3 • D 

Z.EE1 

IC BIT, A 
NZ7EE4 
IC 8IT.A 
(MffDM IN) ,A 
EE2 ~ 



EE1: 



BIT 
JR 



IC BIT, A 
«* Z.EE4 
RES IC BIT.A 
LD (MOOM IN) ,A 



Get contents of MOOM IN register 

B-reg has RRO contents - is DCD bit set? 

NO 

Is IC bit in MODM.IN reg. set? 
Yes - bits match - go to exit 

Set IC bit in MOOM.IN register 



Is IC bit in MOOM.IN reg. set? 
No - bits match - go to exit 



Reset IC bit in MODM_IN register 

;IF IC BIT IN MODM_MASK SET, SEND THE HOST AN INTERRUPT 

EE2: LO HL.MODM MASK Get address of Modm Mask 

BIT IC BIT.(RL) Test the IC bit in Rodm_Mask 

JR Z.EE4 If set, send interrupt, else jump to exit 

;SEND HOST A MODEM INPUT CHANGE INTERRUPT - FIRST GRAB SEMAPHORE 



EE3: 



LO A.fSEM REG) 
BIT 7,rt 
JP NZ.EE3 



Retrieve address of semaphore register 
If bit 7*0, continue, else check again 



761 



;SEM_REG SET - SENO INTERRUPT TO HOST AND RELEASE SEMAPHORE REGISTER 



ERR LIN£ ADDR Bl 82 B3 B4 Z80 ASSEMBLER VER 3.0MR PAGE 8 

763 000ft 21 00 CO LO HL.INT COND Get address of INT COND register 

764 OOOD CB EE SET MOD INT.(HL) Set bit for Modem Input line change 

765 OODF 32 02 80 LD (SEM_REG),fl Clear bit 7 of Sem. reg by writing to it 

767 0OE2 C9 EE4: RET 

769 0OE3 END 

ASSEMBLER ERRORS * 



ERR LINE 


ADDR 


Bl 


B2 


B3 84 
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1 












SOURCE: &MXPTO 


2 

3 
4 












PROGRAflMER: LIZ POTEET 












4 CHANNEL DIO MUX (FORDYCE) - HOST ISR - PORT SPECIFIC INTERRUPTS 


5 
6 
7 












FOR PORT 












************************** ***********X*X*****SX*X**SX**X*XX**** 


8 












« (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 
* RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 


9 












10 












« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 


11 












« THE PRIOR WRITTEN CONSENT OF HEWLETT -PACKARD COMPANY. 


12 
13 
14 












*************************************************************** 












NAME MXPTO 


15 












COPY &MX4EQUS 


455 












LIST S 


456 














457 












PUBLIC ISRPTO 


458 














459 












EXTRN TMPTAB, CONFG 0.WR3 0.WR4 0.WR5 O.BD O.TTAIL 


460 












EXTRN THEAD_0 ,T0N07BD_TAB\EEE27SN0BRK\HSTC"0N,BITS_0 


462 












**x*xxxxxs**xxx**xs*sxxxxxxs*********xx*******x*x**xxxxxxxxxxxxxx*x 


463 














464 












DESCRIPTION: This file contains part of the Interrupt Service for a 


465 












host interrupt. In particular, it contains the routines for a port 


466 












specific interrupt for port 0. The first part of this file contains 
the code which accesses TMPTAB, the four byte table which identifies 


467 












468 












port specific interrupts. Each of the relevant bits in the TMPTAB 
location is then checked (there can be more than one interrupt at a 


469 












470 












time) . 


471 














472 












REGISTER USAGE: Reg. D - contains the TMPTAB bits 


473 












Reg. E - DO NOT USE. Reserved by Caller 


474 














47S 
476 
477 












CALLED BY (FILE): &MXHST 












CALLS(FILE): &MXSBR 


478 












********************************************************************* 


480 












CSEG 


482 


0000 








ISRPTO: 


483 


0000 


21 


00 


00 


E 


LO HL, TMPTAB 


484 


0003 


7E 








LD A,(HL) No index for 0. Retrieve TMPTAB data 


485 


0004 


IF 








RRA Rotate bit into Carry flag 


486 


0005 


57 








LD D,A Save remaining bits in D 
JP NC.P1 If bit 0-0, jump 


487 


0006 


02 


SF 


00 


C 


ERR LINE 


AOOR 


61 


B2 


B3 B4 
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489 












CONFIGURATION DATA CHANGE INTERRUPT 


490 














491 












The purpose of this routine is to reconfigure the line 


492 












characteristics of the UART and change the baud rate as desired 


493 












by the host. This is done by decoding the CONFG register and 
the BD registers. The CONFG register contains the parity type, 
number of stop bits, and number of bits per character. The BD 


494 












495 












496 












register is the index to the BO table which contains the CTC Channel 


497 












Control Word and prescale value for the baud rate requested. 


499 












DECIPHER CONFIGURATION REGISTER 


SOI 


0009 


3ft 


00 


00 


E 


LD A. (CONFG 0) Retrieve contents of configuration reg. 
CALL HSTCON ~ 


502 


OOOC 


CD 


00 


00 


E 


503 


OOOF 


32 


00 


00 


E 


LD (BITS.O) ,A Save bits mask for RX data 


505 












LOAD SIO REGISTER 4 WITH APPROPRIATE BITS 


507 


0012 


78 








LD A.B Obtain original pattern again 
AND OFH Clear out upper byte 


S08 


0013 


E6 


OF 






509 


0015 


47 








LD B,A Save pattern temporarily 


510 


0016 


3ft 


00 


00 


E 


LD A,(WR4 0) Get copy of current WR4 value 
AND OFOH ~ Clear out lower byte 


511 


0019 


E6 


FO 






512 


0018 


BO 








OR B Merge new lower byte with orig. upper byte 


S13 


001C 


OE 


71 






LD C.SIO AC 


514 


001E 


2E 


04 






LD L,4 

OUT fCKL Set SIO register pointer to WR4 


515 


0020 


ED 


69 






516 


0022 


ED 


79 






OUT (C),A Send out new WR4 value 


S17 


0024 


32 


00 


00 


E 


LD (WR4_0),A Save copy of WR4 


S19 












.LOAD SIO REGISTER S WITH APPROPRIATE BITS 


521 


0027 


7C 








LO A,H Retrieve original value of bits 4 & 5 


522 


0028 


17 








RLA Move one position to left to match WR5 


S23 


0029 


47 








LD B,A Hold temporarily 


S24 


002ft 


3ft 


00 


00 


E 


LD A.(WR5 0) 

AND lOOlllTlB Clear out bit positions 5 & 6 in WR5 


525 


0020 


E6 


9F 






526 


002F 


BO 








OR B Put new bits in WR5 location 


527 


0030 


2E 


05 






LO L.S 

OUT (C),L Pointer to WR5 


528 


0032 


ED 


69 






529 


0034 


ED 


79 






OUT (Cj.A Pattern to WR5 


530 


0036 


32 


00 


00 


E 


LD (WRS_0) ,A Save new value of WR5 


532 












LOAD SIO REGISTER 3 WITH APPROPRIATE BITS 


534 


0039 


78 








LO A,B Retrieve bits for t of bits per character 



ERR LINE 


ADDR 


Bl 


B2 


B3 B4 
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535 


0030 


17 










RLfi 




Rotate one position for (JR3 


536 


003B 


47 










LD 


B,A 


Save temporarily 


537 


003C 


3A 


00 


00 


E 




LO 


A (UR3 ) 
OOllllTlB 


Get contents of UIR3 


538 


003F 


E6 


3F 








AND 


Clear bits 6 & 7 


539 


0041 


BO 










OR 


B 


Put new bits in UR3 pattern 


540 


0042 


32 


00 


00 


E 




LO 


(WR3 0),A 


Store pattern 


541 


0045 


2E 


03 








LO 


L * 3 " 
(C),L 




542 


0047 


ED 


69 








OUT 


Register pointer to UR3 


543 


0049 


EO 


79 








OUT 


(C),A 


Pattern to WR3 _ 


545 












; CHANGE 


BAUD 


RATE - BO REG. 


IS INDEX TO BD_TAB 


547 


004 B 


3A 


00 


00 


E 




LO 


JJBD.O, 


Get contents of BD reg - index to BD_TAB 


548 


0O4E 


87 










ADD 


Multiply by 2 (2 dimentional table) 


549 


004 F 


DE 


02 








SBC 


ft, 2 


Subtract 2 for effective address 


550 


0051 


21 


00 


00 


E 




LD 


HL.80 TAB 
C,R 


Get address of BD TAB 


SSI 


0054 


4F 










LO 


Trying to put A reg value into a 


552 


005S 


AF 










XOR 


ft 


register pair 


553 


0056 


47 










LD 


B,A 


Clear upper byte of BC reg. pair 
Add index to base 


554 


0057 


09 










ADD 


HL.BC 


555 


0058 


7E 










LD 


(dTC 6 CO), A 


Get CTC Channel Control Word from BD_TAB 


5S6 


0059 


03 


00 








OUT 


Send to CTC channel* 


557 


005B 


23 










INC 


HL 


Get second byte in table 


558 


005C 


7E 










LD 


(dTC_0_CO) ,A 


Get CTC Time Constant value 


559 


0050 


03 


00 








OUT 


Send to CTC channel* 


561 


005 F 


7A 








PI: 


LD 


A.D 


Retrieve remaining bit pattern from TMPTAB 


562 


0060 


IF 










RRft 




Rotate bit 2 into Carry flag 
Save remaining bit in 


563 


0061 


57 










LO 


Nd,P2 


564 


0062 


02 


8C 


00 


C 




JP 


If bit 2«0,jump 


566 












;TRANSMIT BUFFER NOT EMPTY 


INTERRUPT 


568 


0065 












HOSTTX T0N0.THEflD_ 


0,TTAIL_0,SIO_0_flD,TFIFO_0 


569 












♦ ; 








570 


0065 


3A 


00 


00 


E 


♦ 


LD 


A.(TONO) 


Get contents of Transmitter Flag 


571 


0068 


IF 








♦ 


RRft 




Rotate bit into Carry flag 


572 


0069 


38 


21 






+ 


JR 


C,??0O01 


If flag«l jump 


573 












♦ ; 








574 












♦; TRANSMITTER 


IS OFF. CHECK 


IF HEAD » TAIL 


575 












+ ; 








576 


006B 


3A 


00 


00 


E 


♦ 


LD 


A,(THEAD_0) 


Retrieve value in Head pointer index 


577 


006E 


47 








♦ 


LD 




578 


006 F 


3ft 


00 


00 


E 


+ 


LD 


A|(TTAIL 0) 


Retrieve value in Tail pointer index 


579 


0072 


B8 








♦ 


CP 


B 


Compare; if Head*Tail then buffer is empty 


580 


0073 


28 


17 






♦ 


JR 


Z,??0001 


If empty, jump to end 


S81 












♦; 








ERR LINE 


ftDDR 


Bl 


B2 


B3 B4 
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582 












♦;HEAO<>TAIL - 


THERE ARE CHARACTER TO RETRIEVE 


583 












♦ ; 








584 


0075 


26 


C7 






♦ 


LD 


H.TX BASE 


Retrieve the base upper byte of pointer 


585 


0077 


3ft 


00 


00 


E 


■♦• 


LD 


A, (TREAD 0) 
A.TFIFO 0" 


Get head pointer index 


586 


007R 


C6 


ftO 






♦ 


ADD 


Add base of lower byte 


587 


007C 


6F 








♦ 


LD 


L.A 


Save head pointer so can use A reg. 


588 


007D 


7E 








♦ 


LD 


(SI0_6_AD) ,ft 


Retrieve character 


589 


007E 


03 


70 






♦ 


OUT 


Send character to UART 


590 


0080 


70 








♦ 


LO 


Get lower byte again 


591 


0081 


3C 








•f 


INC 


A* 


Increment lower byte of head pointer 


592 


0082 


E6 


OF 






♦ 


ANO 


TMSK 


Isolate lower nibble (index) of pointer 
Save updated pointer (lower byte) 


593 


0084 


32 


00 


00 


E 


♦ 


LO 


(THEAD 0),A 


594 












+ ; 








S9S 












♦;TURN Oh 


TRANSMITTER FLAG 




596 












♦ ; 








597 


0087 


3E 


01 






♦ 


LO 


A.l 




598 


0089 


32 


00 


00 


E 


+ 


LD 


(TONO).A 




S99 
600 












$ ?0001 : 


ENOM 




602 


008C 


7ft 








P2: 


LO 


ft.D 


Retrieve remaining bit pattern from TMPTAB 


603 


0080 


IF 










RRA 




Rotate bit 1 into Carry flag 
Save remaining bit in 


604 


008E 


57 










LD 


NC.P3 


605 


008F 


02 


9ft 


00 


C 




JP 


If bit l»0,jump 


607 












;SEND BREAK INTERRUPT 




609 


0092 


21 


00 


00 


E 




LO 


HL.URS 
C.SIO ff AC 


Parameters for SNOBRK subroutine 


610 


0095 


OE 


71 








LO 




611 


0097 


CO 


00 


00 


E 




CALL 


SNOBR? 




613 


009fi 


C3 


00 


00 


E 


P3: 


JP 


EEE2 


Return to caller 


615 


0090 












END 






ASSEMBLER ERRORS 


















ERR LINE AODR Bl B2 B3 B4 
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PAGE 



1 

2 

3 

4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

4S5 

456 

457 

458 

459 

460 

462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
47S 
476 
477 
478 



SOURCE: &MXPT1 
PROGRAMMER: LIZ POTEET 

4 CHANNEL 010 MUX (FORDYCE) 



HOST ISR - PORT SPECIFIC INTERRUPTS 
FOR PORT 1 



« (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 
« RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 
« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 
« THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 

*»****»*****»»»»»***«**«»**»******» ********»**x***»****»******* 

NAME MXPT1 
COPY &MX4EQUS 
LIST S 

PUBLIC ISRPT1 

EXTRN TMPTAB, CONFG 1.WR3 1.WR4 1.WR5 l.BD l.TTAIL 1 
EXTRN THEAO.l ,T0Nl7B0_TAff,EEE37BITS_T,SN0B"RK,HSTC0"N 

DESCRIPTION: This file contains part of the Interrupt Service for a 
host interrupt. In particular, it contains the routines for a port 
specific interrupt for port 1. The first part of this file contains 
the code which accesses TMPTAB, the four byte table which identifies 
port specific interrupts. Each of the relevant bits in the TMPTAB 
location is then checked (there can be more than one interrupt at a 
time) . 



REGISTER USAGE: 



Reg. D - contains the TMPTAB bits 

Reg. E - 00 NOT USE. Reserved by Caller 



CALLED BY (FILE): &MXHST 

CALLS (FILE): &MXSBR 

*x*****«**«a*»««********»«*»»**»*** ********************************** 



480 

482 OOOO 

483 0000 21 00 00 

484 0003 23 

485 0004 7E 

486 0005 IF 

487 0006 57 

488 0007 D2 60 00 



CSEG 



ISRPTl: 



LO 

INC 

LD 

RRA 

LD 

JP 



HL, TMPTAB 

HL 

A,(HL) 

NC.P1 



Get to correct byte in table for PT 1 
No index for 0. Retrieve TMPTAB data 
Rotate bit into Carry flag 
Save remaining bits in 
If bit 0*0, jump 



ERR LINE 


ADDR 


Bl 


B2 B3 B4 
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490 












;CONFIGURflTI0N DATA CHANGE 


INTERRUPT 




491 






















492 












; Th« 


purpose of this routine is to reconfigure the line 




493 












; characteristics of the UART and change the baud rate as desired 




494 












! ?fc 


the host. This is do 


ne by decoding the CONFG register and 




4 95 












BD rec 


isters. The CONFG register contains the parity type, 




496 












; number of 


stop bits, and 


number of bits per character. The BD 




497 












; register is the index to 


the BO table which contains the CTC Channel 




498 












; Control Word and prescal 


i value for the baud rate requested. 




500 












{DECIPHER CONFIGURATION REGISTER 




502 


0OOA 


3ft 


00 00 


E 






LD 


A, (CONFG 1) 
HSTCON 


Retrieve contents of configuration reg. 




503 


OOOD 


CD 


00 00 


E 






CALL 






504 


0010 


32 


00 00 


E 






LO 


(BITS 1),A 


Save bits mask for RX data 




506 












;L0AD 


SIO REGISTER 4 WITH APPROPRIATE BITS 




S08 


0013 


78 










LD 


A,B 
OFH 


Obtain original pattern again 




509 


0014 


E6 


OF 








AND 


Clear out upper byte 




510 


0016 


47 










LO 


B,A 


Save pattern temporarily 




511 


0017 


3ft 


00 00 


E 






LD 


A.MJR4 1) 
OFOH 


Get copy of current UR4 value 




S12 


001A 


E6 


FO 








AND 


Clear out lower byte 




513 


001C 


BO 










OR 


B 


Merge new lower byte with orig. upper byte 




514 


001D 


OE 


73 








LD 


C.SIO BC 






SIS 


001F 


2E 


04 








LD 


(C),L 






S16 


0021 


EO 


69 








OUT 


Set SIO register pointer to UR4 




S17 


0023 


ED 


79 








OUT 


c ii ft 


Send out new UR4 value 




S18 


0025 


32 


00 00 


E 






LO 


UR4 1),A 


Save copy of UR4 




520 












;L0AD 


SIO REGISTER 5 WITH APPROPRIATE BITS 




522 


0028 


7C 










LO 


A.H 


Retrieve original value of bits 4 & 5 
Move one position to left to match URS 




523 


0029 


17 










RLA 






S24 


002ft 


47 










LD 


8, A 


Hold temporarily 




525 


002B 


3ft 


00 00 


E 






LD 


A.fURS 1) 
lOOlllTlB 






526 


002E 


E6 


9F 








AND 


Clear out bit positions 5 & 6 in UR5 




527 


0030 


BO 










OR 


B 


Put new bits in UIR5 location 




S28 


0031 


2E 


05 








LO 


(C),L 






529 


0033 


EO 


69 








OUT 


Pointer to URS 




S30 


0035 


ED 


79 








OUT 


c JL fl 


Pattern to URS 




S31 


0037 


32 


00 00 


E 






LD 


UR5 1),A 


Save new value of URS 




533 












;LOfiD 


SIO REGISTER 3 WITH APPROPRIATE BITS 




ERR LINE 


AODR 


Bl 


B2 B3 64 
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53S 


003A 


78 










LD 


A,B 


Retrieve bits for t of bits per character 




536 


003B 


17 










RLA 




Rotate one position for WR3 




537 


003C 


47 










LO 


B,A 


Save temporarily 




538 


0030 


3ft 


00 00 


E 






LD 


A,(UR3 1) 
OOlUlTlB 


Get contents of UR3 




539 


0040 


E6 


3F 








ANO 


Clear bits 6 & 7 




540 


0042 


BO 










OR 


B 


Put new bits in WR3 pattern 




541 


0043 


32 


00 00 


E 






LO 


(WR3_1),A 


Store pattern 




542 


0046 


2E 


03 








LO 


L A 3 
(C),L 






543 


0048 


EO 


69 








OUT 


Register pointer to UR3 




544 


004ft 


ED 


79 








OUT 


(CJ.A 


Pattern to UR3 




546 












CHANGE BAUD 


RATE - BO REG. 


IS INDEX TO BD.TAB 




548 


004C 


3ft 


00 00 


E 






LD 


S;r- l) 


Get contents of BO reg - index to BD TAB 




549 


004 F 


87 










ADD 


Multiply by 2 (2 dimentional table) 




550 


OOSO 


DE 


02 








SBC 


A, 2 


Subtract 2 for effective address 




551 


00S2 


21 


00 00 


E 






LD 


HL.BD_TAB 
C,A 


Get address of BD_TAB 




552 


00S5 


4F 










LD 


Trying to put ft reg value into a 




SS3 


0056 


flF 










XOR 


A 


register pair 




SS4 


0057 


47 










LO 


B.A 


Clear upper byte of BC reg. pair 
Add index to base 




555 


0058 


09 










ADO 


HL.BC 




556 


0059 


7E 










LD 


(CTC_0_C1),A 


Get CTC Channel Control Word from BD_TAB 




557 


005ft 


03 


01 








OUT 


Send to CTC channel* 




558 


005C 


23 










INC 


Get second byte in table 




559 


0050 


7E 










LO 


(CTC 6 CI), A 


Get CTC Time Constant value 




560 


OOSE 


03 


01 








OUT 


Send to CTC channel* 




561 


0060 


7ft 






Pi: 


LO 


A,0 


Retrieve remaining bit pattern from TMPTAB 




562 


0061 


IF 










RRA 




Rotate bit 2 into Carry flag 
Save remaining bit in D 




563 


0062 


57 










LO 


°Jt fl 
NC.P2 




564 


0063 


02 


80 00 


C 






JP 


If bit 2»0,jump 




566 












.TRANSMIT BUFFER NOT EMPTY 






S68 


0066 












HOSTTX T0N1.THEAD_ 


L , TTAI L_l , SIO_0_BO , TFI F0_1 




569 










♦ 












570 


0066 


3A 


00 00 


E 


♦ 




LO 


A.(TONl) 


Get contents of Transmitter Flag 




571 


0069 


IF 






♦ 




RRA 




Rotate bit into Carry flag 




S72 


006ft 


38 


21 




♦ 




JR 


C,??0001 


If flag»l jump 




573 










♦ 












574 










♦ 


TRANSMITTER 


IS OFF. CHECK 


IF HEAD • TAIL 




575 










♦ 












576 


006C 


3ft 


00 00 


E 


♦ 




LO 


A,fTHEAO_l) 

B iH 


Retrieve value in Head pointer index 




577 


006 F 


47 






♦ 




LD 






578 


0070 


3ft 


00 00 


E 


♦ 




LO 


«.(TTAIL_1) 


Retrieve value in Tail pointer index 
Compare; if Head»Tail then buffer is empty 




S79 


0073 


68 






♦ 




CP 


B 




S80 


0074 


28 


17 




♦ 




JR 


Z,??0001 


If empty, jump to end 




581 










♦ 












S82 










♦ 


HEADoTAIL - 


THERE ARE CHARACTER TO RETRIEVE 




S83 










♦ 












584 


007$ 


26 


C7 




♦ 




LO 


H,TX_BASE 


Retrieve the base upper byte of pointer 





ERR LINE 


BOOR 


Bl 


B2 


B3 B4 




585 


0078 


3A 


00 


00 


E 


586 


007B 


C6 


90 






587 


0070 


6F 








588 


007E 


7E 








589 


007F 


03 


72 






590 


0081 


70 








591 


0082 


3C 








592 


0083 


E6 


OF 






593 


0085 


32 


00 


00 


E 


594 












595 












596 












597 


0088 


3E 


01 






598 


008A 


32 


00 


00 


E 


599 












600 












602 


0080 


7A 








803 


008E 


IF 








604 


008F 


57 








60S 


0090 


02 


96 


00 


C 


607 












609 


0093 


21 


00 


00 


E 


610 


0096 


OE 


73 






611 


0098 


CO 


00 


00 


E 


613 


009B 


C3 


00 


00 


E 


615 


009E 











Z80 ASSEMBLER VER 3. OUR 



PAGE 



LO 

ROD 

LO 

LD 

OUT 

LD 

INC 

AND 

LD 



A.fTHEAD 1) 
A.TFIFO T 

(§10_0_80),A 

a' 

TUSK 
(THEAD_l),A 



♦;TURN ON TRANSMITTER FLAG 



LO 
LO 



A.l 
(TONl).A 



P2: 



LO 
RRA 
LO 
JP 



ENDM 
A,0 



°Jt fl 
NC.P3 



;SEND BREAK INTERRUPT 

LD HL.URS 1 
LO C.SIO ff BC 
CALL SNDBRK" " 



P3: 



JP 
END 



EEE3 



Get head pointer index 
Add base of lower byte 
Save head pointer so can use A reg. 
Retrieve character 

Send character to UART 
Get lower byte again 
Increment lower byte of head pointer 
Isolate lower nibble(indexjof pointer 
Save updated pointer (lower byte) 



Retrieve remaining bit pattern from TMPTAB 

Rotate bit 1 into Carry flag 
If bit*0,jump 



Parameters for SNOBRK subroutine 



Return to caller 



ASSEMBLER ERRORS 



ERR LINE 


BOOR 


Bl 


B2 


B3 B4 
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1 












; SOURCE: &MXPT2 


2 
3 

4 












PROGRAMMER: LIZ POTEET 












4 CHftNNEL DIO MUX (FOROYCE) - HOST ISR - PORT SPECIFIC INTERRUPTS 


5 
6 

7 












FOR PORT 2 












xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


8 












• (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 
« RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 


9 












10 












,« REPRODUCED OR TRANSLATED TO ANOTHER PROCRAM LANGUAGE WITHOUT 


11 












;« THE PRIOR URITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 


12 
13 
14 












xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 












NAME MXPT2 


15 












COPY SMX4E0US 


455 












LIST S 


456 














457 












PUBLIC ISRPT2 


458 














4S9 












EXTRN TMPTAB, CONFG 2.UR3 2.UR4 2.WRS 2.BD 2.TTAIL 2 
EXTRN THEAD_2,T0N2TB0_TAB",EEE47BITS_?,SNDB"RtC,HSTC5N 


460 












462 












xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxsxxxxxxxxxxxx 


463 














464 












DESCRIPTION: This file contains part of the Interrupt Service for a 


465 












host interrupt. In particular, it contains the routines for a port 


466 












specific interrupt for port 2. The first part of this file contains 
the code which accesses TMPTAB, the four byte table which identifies 


467 












468 












port specific interrupts. Each of the relevant bits in the TMPTAB 
location is then checked (there can be more than one interrupt at a 


469 












470 












time) . 


471 














472 












REGISTER USAGE: Reg . D - contains the TMPTAB bits 


473 
474 
475 












Reg. E - 00 NOT USE. Reserved by Caller 












CALLED BY (FILE): &MXHST 


476 














477 












CALLS (FILE): 8.MXSBR 


478 












«xxxxxxxxxxxxx*xxxx*«xsxxxxxxxxxx*xx***sxxx*xxxxxxxxx*xxxxx*x*xxxxxx* 


480 












CSEG 


482 


0000 








ISRPT2: 


483 


0000 


21 


00 


00 


E 


LD HL, TMPTAB 


484 


0003 


23 








INC HL 


485 


0004 


23 








INC HL Get to correct byte in table for PT 1 


486 


0005 


7E 








LD A,(HL) No index for 0. Retrieve TMPTAB data 


487 


0006 


IF 








RRA Rotate bit into Carry flag 


488 


0007 


57 








LD D.A Save remaining bits in D 
JP NC.P1 If bit 0-0, jump 


489 


0008 


D2 


61 


00 


C 


ERR LINE 


ADDR 


Bl 


B2 


B3 B4 
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491 












CONFIGURATION DATA CHANGE INTERRUPT 


492 














493 












The purpose of this routine is to reconfigure the line 


494 












characteristics of the UART and change the baud rate as desired 


495 












by the host. This is done by decoding the CONFG register and 
the BD registers. The CONFG register contains the parity type, 
number of stop bits, and number of bits per character. The 8D 
register is the index to the BD table which contains the CTC Channel 


496 












497 












498 












499 












Control Word and prescale value for the baud rate requested. 


501 












DECIPHER CONFIGURATION REGISTER 


S03 


OOOB 


3fl 


00 


00 


E 


LD A, (CONFG 2) Retrieve contents of configuration reg. 
CALL HSTCON ~ 


504 


OOOE 


CD 


00 


00 


E 


505 


0011 


32 


00 


00 


E 


LO (BITS_2) ,A Save bits mask data for RX characters 


507 












LOAD SIO REGISTER 4 WITH APPROPRIATE BITS 


509 


0014 


78 








LD ft.B Obtain original pattern again 
ftND OFH Clear out upper byte 


510 


0015 


E6 


OF 






511 


0017 


47 








LD B,A Save pattern temporarily 


512 


0018 


3ft 


00 


00 


E 


LD A,(WR4 2) Get copy of current WR4 value 
AND OFOH ~ Clear out lower byte 


513 


001B 


E6 


FO 






514 


0010 


BO 








OR B Merge new lower byte with orig. upper byte 


515 


001E 


OE 


Bl 






LD C.SIO 1 AC 


516 


0020 


2E 


04 






LD L.4 

OUT (C),L Set SIO register pointer to WR4 


517 


0022 


ED 


69 






518 


0024 


ED 


79 






OUT (C),A Send out new UR4 value 


519 


0026 


32 


00 


00 


E 


LD (UlR4_2),ft Save copy of UR4 


521 












LOAD SIO REGISTER 5 WITH APPROPRIATE BITS 


S23 


0029 


7C 








LD ft,H Retrieve original value of bits 4 ft 5 


524 


002A 


17 








RLA Move one position to left to match WR5 


S2S 


002B 


47 








LD B.A Hold temporarily 


526 


002C 


3ft 


00 


00 


E 


LD A.fUR5 2) 

AND lOOlllTlB Clear out bit positions 5 & 6 in UIRS 


527 


002F 


E6 


9F 






528 


0031 


BO 








OR B Put new bits in UR5 location 


529 


0032 


2E 


05 






LD L.S 

OUT (C),L Pointer to WR5 


530 


0034 


ED 


69 






531 


0036 


ED 


79 






OUT JCj.A Pattern to UIRS 


S32 


0038 


32 


00 


00 


E 


LO (UR5_2),A Save new value of UR5 


534 












LOAD SIO REGISTER 3 WITH APPROPRIATE BITS 



ERR LINE 
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Bl 
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536 


003B 


78 










LO 


A,B 


Retrieve bits for # of bits per character 


537 


003C 


17 










RLA 




Rotate one position for UIR3 


538 


0030 


47 










LO 


B,A 


Save temporarily 


539 


003E 


3A 


00 


00 


E 




LO 


A (UR3 2 ) 
OOllllTlB 


Get contents of UR3 


540 


0041 


E6 


3F 








AND 


Clear bits 6 & 7 


541 


0043 


BO 










OR 


B 


Put new bits in CJR3 pattern 


S42 


0044 


32 


00 


00 


E 




LO 


(UR3 2), A 


Store pattern 


543 


0047 


2E 


03 








LO 


L A 3 " 
(C),L 




544 


0049 


ED 


69 








OUT 


Register pointer to UR3 


545 


004B 


EO 


79 








OUT 


(C),A 


Pattern to UR3 


547 












; CHANGE 


BAUD 


RATE - BD REG. 


IS INDEX TO BD.TAB 


549 


0040 


3A 


00 


00 


E 




LD 


AJBD.2) 


Get contents of BD reg - index to BO TAB 


S50 


0050 


87 










ADO 


Multiply by 2 (2 dimentional table) 


S51 


0051 


DE 


02 








SBC 


ft, 2 


Subtract 2 for effective address 


552 


0053 


21 


00 


00 


E 




LD 


HL.BD TAB 
C,A ~ 


Get address of BD_TflB 


553 


0056 


4F 










LD 


Trying to put A reg value into a 


554 


0057 


AF 










XOR 


A 


register pair 


S5S 


0058 


47 










LO 


B,A 


Clear upper byte of BC reg. pair 
Add index to base 


SS6 


0059 


09 










ADO 


HL.BC 


557 


OOSfl 


7E 










LD 


(CTC 1 CO), A 


Get CTC Channel Control Word from BDJTAB 


558 


OOSB 


03 


EO 








OUT 


Send to CTC channel* 


559 


0050 


23 










INC 


HL 


Get second byte in table 


560 


OOSE 


7E 










LD 


(CTC_J_CO),A 


Get CTC Time Constant value 


561 


005F 


03 


EO 








OUT 


Send to CTC channel* 


563 


0061 


7A 








PI: 


LO 


A,0 


Retrieve remaining bit pattern from TMPTAB 


564 


0062 


IF 










RRA 




Rotate bit 2 into Carry flag 
Save remaining bit in D 


S6S 


0063 


57 










LD 


Nd,P2 


S66 


0064 


02 


8E 


00 


C 




JP 


If bit 2*0 .jump 


568 












; TRANSMIT BUFFER NOT EMPTY 


INTERRUPT 


S70 


0067 












HOSTTX T0N2,THEftD_ 


2,TTAIL_2,SI0_1_AD,TFIF0_2 


571 












♦ ; 








S72 


0067 


3A 


00 


00 


E 


* 


LD 


A,(T0N2) 


Get contents of Transmitter Flag 


573 


Q06A 


IF 








♦ 


RRA 




Rotate bit into Carry flag 


574 


006B 


38 


21 






♦ 


JR 


C,??0001 


If flag*l jump 


575 












♦ ; 








S76 












♦; TRANSMITTER 


IS OFF. CHECK 


IF HEAD - TAIL 


577 












♦ ; 








578 


0060 


3ft 


00 


00 


E 


♦ 


LO 


A,(THEA0_2) 


Retrieve value in Head pointer index 


S79 


0070 


47 








♦ 


LO 




580 


0071 


3fl 


00 


00 


E 


♦ 


LD 


A', (TTAIL_2) 


Retrieve value in Tail pointer index 
Compare; if Head*Tail then buffer is empty 


581 


0074 


B8 








♦ 


CP 


B 


582 


0075 


28 


17 






♦ 


JR 


Z,??0001 


If empty, jump to end 


583 












* • 








ERR LINE 


ADDR 
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B2 
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584 












♦ ;HEADoTAIL - 


THERE ARE CHARACTER TO RETRIEVE 


585 












♦ ; 








586 


0077 


26 


C7 






♦ 


LO 


H.TX BASE 


Retrieve the base upper byte of pointer 


587 


0079 


3ft 


00 


00 


E 


♦ 


LD 


A, (TREAD 2) 
A.TFIFO 2 


Get head pointer index 


588 


007C 


C6 


80 






♦ 


ADO 


Add base of lower byte 


589 


007E 


6F 








♦ 


LD 


I, A 


Save head pointer so can use A reg. 
Retrieve character 


S90 


007F 


7E 








♦ 


LD 


(SI0_1_AD),A 


591 


0080 


03 


BO 






■♦• 


OUT 


Send character to UART 


592 


0082 


70 








♦ 


LO 


Get lower byte again 
Increment lower byte of head pointer 
Isolate lower nibble(index)of pointer 
Save updated pointer (lower byte) 


593 


0083 


3C 








♦ 


INC 


A* 


594 


0084 


E6 


OF 






♦ 


ANO 


TMSK 


595 


0086 


32 


00 


00 


E 


♦ 


LD 


(THEAD 2), A 


596 












■f; 








597 












♦;TURN ON TRANSMITTER FLAG 




598 












♦; 








599 


0089 


3E 


01 






♦ 


LO 


(t0N2),A 




600 


008B 


32 


00 


00 


E 


♦ 


LO 




601 
602 












*?0001 : 


ENDM 




604 


008E 


7fl 








P2: 


LD 


A,D 


Retrieve remaining bit pattern from TMPTAB 


605 


008F 


IF 










RRA 




Rotate bit 1 into Carry flag 
Save remaining bit in 


606 


0090 


57 










LD 


D.A 
NC.P3 


607 


0091 


02 


9C 


00 


C 




JP 


If bit l«0,jump 


609 












;SEND BREAK INTERRUPT 




611 


0094 


21 


00 


00 


E 




LD 


HL.WRS 2 
C.SIO T AC 


Parameters for SNOBRK subroutine 


612 


0097 


OE 


Bl 








LO 




613 


0099 


CO 


00 


00 


E 




CALL 


SNOBRR" 




615 


009C 


C3 


00 


00 


E 


P3: 


JP 


EEE4 


Return to caller 


617 


009F 












END 






ASSEMBLER ERRORS 


X 
















ERR LINE AODR Bl B2 B3 B4 

1 
2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

4S5 

456 

4S7 

458 

459 

460 

462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 



Z80 ASSEMBLER \£ER USMR 



PAGE 



SOURCE: &MXPT3 
PROGRAMMER: LIZ POTEET 

4 CHANNEL DIO MUX (FOROYCE) 



H-fiJBT ISR - PORT SPECIFIC INTERRUPTS 

mm port 3 



xx*xxxxxxxxxxx*xxxxxxxxxxxxx*x**«aM:**xxxx««x***«:sat*x**xxxxxxxsx 
« (C) COPYRIGHT HEWLETT-PACKARD "COMPANY 1983. AIL RIGHTS 
« RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 
« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 
* THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*X*XX*X*S**K«X*XXXX*XXXXXXXXXXXXX 

NAME MXPT3 
COPY &MX4EQUS 
LIST S 

PUBLIC ISRPT3 

EXTRN TMPTAB, CONFG 3.WR3 3.WR4 3.WR5 3.BD 3.TTAIL 3 
EXTRN THEAD J ,T0N3 ,B0_TaMeES7B1TS_3\SN01?RK,'HSTC0"N 

XXXXX*XX«*XtXX*XXXXXXXXXXXXXXXXXXX*XXXXXX»»X»*XXX*XXXXXXXXXXXXXXXXX 

DESCRIPTION: This file contains part of t<ie Interrupt Service for a 
host interrupt. In particular, it contains tne routines for a port 
specific interrupt for port 3. The first part of ttiis file contains 
the code which accesses TMPTAB, the four byt« table which identifies 
port specific interrupts. Each of the relevant bits in the TMPTAB 
location is then checked (there can be more than one interrupt at a 
time). 



REGISTER USAGE: 



Reg. 
Reg. 



contains the TMPTAB bits 

00 NOT USE. Reserved by Caller 



CALLED BY (FILE): &MXHST 

CALLS (FILE): &OXSBR 

xxx* *«**»* ssx*x*xxxxxx*xxxxxxxxxx****sk*x«x***xxxxxxx«xxxxxxxxxxxxxxx 



480 

482 0000 

483 0000 21 00 00 

484 0003 23 

485 0004 23 

486 0005 23 

487 0006 7E 

488 0007 IF 

489 0008 57 



CSE6 



ISRPT3: 



LO 

INC 

INC 

INC 

LD 

RRA 

LD 



HL, TMPTAB 

HL 

HL 

HL 

«.(HL) 

O.A 



Get to correct byte in table for PT 1 
No index for 0. Retrieve TMPTAB data 
Rotat« bit into Carry flag 
.Save remaining bits in 



ERR LINE 


AODR 


Bl 


B2 


63 B4 
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490 


0009 


02 


62 


00 


c 




jp 


NC.P1 


If bit 0»0,jump 


492 












;CONFIGURftTION DATA CHANGE 


INTERRUPT 


493 




















494 












; The purpose of this routine is to reconfigure the line 


495 












; characteristics of the UART and change the baud rate as desired 


496 












; by 


the host. This is done by decoding the CONFG register and 


497 












; the BD reg 


isters. The CONFG register contains the parity type, 


498 












; number of 


stop bits, and 


number of bits per character. The BD 


499 












; register is the index to 


the BD table which contains the CTC Channel 


500 












; Control Word and prescale value for the baud rate requested. 


502 












;OECIPHER CONFIGURATION REGISTER 


504 


OOOC 


3fi 


00 


00 


E 




LO 


A,(C0NFG_3) 
HSTCON 


Retrieve contents of configuration reg. 


505 


OOOF 


CO 


00 


00 


E 




CALL 




506 


0012 


32 


00 


00 


E 




LO 


(BITS 3), ft 


Save the bits mask data for RX characters 


508 












;LOAD 


SIO REGISTER 4 WITH APPROPRIATE BITS 


SIO 


0015 


78 










LD 


OFH 


Obtain original pattern again 


511 


0016 


E6 


OF 








AND 


Clear out upper byte 


512 


0018 


47 










LO 


B.fl 


Save pattern temporarily 


513 


0019 


3fi 


00 


00 


E 




LD 


A,(UR4 3) 


Get copy of current U)R4 value 


514 


001C 


E6 


FO 








ANO 


OFOH ~ 


Clear out lower byte 


515 


001E 


BO 










OR 


B 


Merge new lower byte with orig. upper byte 


516 


001F 


OE 


B3 








LO 


C.SIO 1 BC 




517 


0021 


2E 


04 








LO 


L A 4 

(C),L 




518 


0023 


ED 


69 








OUT 


Set SIO register pointer to UR4 


519 


0025 


ED 


79 








OUT 


CJ.A 


Send out new UR4 value 


520 


0027 


32 


00 


00 


E 




LO 


UR4 3), A 


Save copy of WR4 


S22 












;LOAO 


SIO REGISTER S WITH APPROPRIATE BITS 


S24 


002A 


7C 










LD 


ft.H 


Retrieve original value of bits 4 & 5 


525 


002B 


17 










RLft 




Move one position to left to match URS 


526 


002C 


47 










LO 


B,A 


Hold temporarily 


S27 


0020 


3A 


00 


00 


E 




LO 


ft. (URS 3) 
lOOlllIlB 




528 


0030 


E6 


9F 








AND 


Clear out bit positions 5 & 6 in URS 


529 


0032 


BO 










OR 


B 


Put new bits in URS location 


530 


0033 


2E 


05 








LD 


L JL S 
(C),L 




531 


0035 


ED 


69 








OUT 


Pointer to WRS 


532 


0037 


ED 


79 








OUT 


c ii fl 


Pattern to URS 


533 


0039 


32 


00 


00 


E 




LD 


URS 3), ft 


Save new value of URS 


535 












;LOAD 


SIO REGISTER 3 WITH APPROPRIATE BITS 


ERR LINE 


ADOR 


Bl 


B2 
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537 


003C 


78 










LO 


A,B 


Retrieve bits for # of bits per character 


538 


0030 


17 










RLA 




Rotate one position for UR3 


539 


003E 


47 










LD 


B.ft 


Save temporarily 


540 


003F 


3A 


00 


00 


E 




LD 


ft (UR3 3 ) 
OOllllTlB 


Get contents of UR3 


541 


0042 


E6 


3F 








ANO 


Clear bits 6 & 7 


542 


0044 


BO 










OR 


B 


Put new bits in WR3 pattern 


543 


0045 


32 


00 


00 


E 




LO 


(UR3 3),fl 


Store pattern 


544 


0048 


2E 


03 








LD 


L jl 3 ~ 
(C),L 




545 


004A 


ED 


69 








OUT 


Register pointer to UR3 


546 


004C 


ED 


79 








OUT 


(C),A 


Pattern to WR3 


548 












; CHANGE BAUD 


RATE - BD REG. 


IS INDEX TO BD_TAB 


550 


004E 


3fl 


00 


00 


E 




LD 


S:a bd - 3) 


Get contents of BD reg - index to BD TAB 


551 


0051 


87 










AOO 


Multiply by 2 (2 dimentional table) 


552 


0052 


DE 


02 








SBC 


A, 2 


Subtract 2 for effective address 


553 


0054 


21 


00 


00 


E 




LD 


HL.BD TAB 
C,A ~ 


Get address of BD TAB 


554 


0057 


4F 










LO 


Trying to put A reg value into a 


555 


0058 


ftF 










XOR 


ft 


register pair 


556 


0059 


47 










LD 


B.A 


Clear upper byte of BC reg. pair 
Add index to base 


SS7 


005A 


09 










AOO 


HL.BC 

fl.JHL) 

(CTC_i_Cl),A 


558 


OOSB 


7E 










LO 


Get CTC Channel Control Word from BO TAB 


559 


005C 


D3 


El 








OUT 


Send to CTC channel* ~ 


560 


005E 


23 










INC 


Get second byte in table 


561 


005F 


7E 










LD 


(CTC_1_C1),A 


Get CTC Time Constant value 


S62 


0060 


03 


El 








OUT 


Send to CTC channel* 


564 


0062 


7fl 








PI: 


LD 


fi.D 


Retrieve remaining bit pattern from TMPTAB 


565 


0063 


IF 










RRA 




Rotate bit 2 into Carry flag 
Save remaining bit in D 


566 


0064 


57 










LD 


O.A 
NC.P2 


567 


006S 


02 


8F 


00 


C 




JP 


If bit 2*0, jump 


569 












; TRANSMIT BUFFER NOT EMPTY 


INTERRUPT 


571 


0068 












HOSTTX T0N3,THEAD_ 


3 ,TTAIL_3 ,SI0_1_B0 ,TFIF0_3 


572 












♦ ; 








573 


0068 


3ft 


00 


00 


E 


♦ 


LD 


ft, (TONS) 


Get contents of Transmitter Flag 


574 


0068 


IF 








♦ 


RRA 




Rotate bit into Carry flag 


575 


006C 


38 


21 






♦ 


JR 


C,??0001 


If flag*l jump 


576 












♦ ; 








S77 












♦; TRANSMITTER 


IS OFF. CHECK 


IF HEAD ■ TAIL 


S78 












♦ ; 








S79 


006E 


3ft 


00 


00 


E 


♦ 


LD 


A,fTHEflO_3) 


Retrieve value in Head pointer index 


580 


0071 


47 








♦ 


LD 




581 


0072 


3ft 


00 


00 


E 


♦ 


LD 


ft',(TTflIL_3) 


Retrieve value in Tail pointer index 
Compare; if Head«Tail then buffer is empty 


S82 


007S 


B8 








♦ 


CP 


B 


583 


0076 


28 


17 






♦ 


JR 


Z,??0001 


If empty, jump to end 


584 












♦; 









ERR LINE ADDR Bl B2 B3 B4 



S85 
S86 
S87 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
S98 
599 
600 
601 
602 
603 

605 
606 
607 
608 

610 

612 
613 
614 

616 

618 



Z80 ASSEMBLER VER 3.0MR 
♦;HEAD<>TAIL - THERE ARE CHARACTER TO RETRIEVE 



PAGE 



0078 
007A 
007D 
007 F 
0080 
0081 
0083 
0084 
0085 
0087 



008A 
008C 



008F 
0090 
0091 
0092 



0095 
0098 
009A 

0090 

OOAO 



26 C7 

3A 00 00 

C6 70 

6F 

7E 

03 B2 

70 

3C 

E6 OF 

32 00 00 



3E 01 
32 00 00 



7A 
IF 
S7 
02 90 00 



21 00 00 
OE B3 
CO 00 00 

C3 00 00 



LO 

LO 

ADO 

LD 

LO 

OUT 

LD 

INC 

AND 

LD 



H.TX BASE 

A, (TREAD 3) 

A.TFIFO 5 

L.fl 

A.fHL) 

(SIO 1 BO), A 

A, I 

A 

TMSK 

(THEAD 3), A 



♦;TURN ON TRANSMITTER FLAG 



LD 
LD 



A 1 
(T0N3) ,A 



i?0001 : 
P2: 



ENon 

LD A,0 

RRA 

LD D,A 

JP NC.P3 



;SENO BREAK INTERRUPT 
E 
E 

E P3: JP 

END 



LD HL.UR5 3 
LD C.SI0 T BC 
CALL SNDBRR" 

EEE5 



Retrieve the base upper byte of pointer 

Get head pointer index 
Add base of lower byte 
Save head pointer so can use A reg. 
Retrieve character 

Send character to UART 
Get lower byte again 
Increment lower byte of head pointer 
Isolate lower nibble (index) of pointer 

Save updated pointer (lower byte) 



Retrieve remaining bit pattern from TMPTAB 
Rotate bit 1 into Carry flag 
Save remaining bit in 
If bit 1*0, jump 



Parameters for SNOBRK subroutine 



Return to caller 



ASSEMBLER ERRORS 
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1 








: SOURCE: &MXSBR 


2 
3 

4 








PROGRAMMER: LIZ POTEET 








4 CHANNEL 010 MUX (FORDYCE) - SUBROUTINES FOR FILES &MXPT0.&MXPT1 , 


5 
6 

7 








4MXPT2.&MXPT3 








X*** ******** ******************************** ******************* 


8 








• (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 
« RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 


9 








10 








« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 


11 








« THE PRIOR WRITTEN CONSENT OF HEWLETT -PACKARD COMPANY. 


12 
13 
14 








*************************************************************** 








NAME MXSBR 


IS 








COPY &MX4EQUS 


45S 








LIST S 


4S6 










457 








PUBLIC HSTCON, SNDBRK 


458 










460 








************************************************* ****************** 


461 










462 








DESCRIPTION: This file contains two subroutines, HSTCON and SNOBRK 


463 








which are used by the port specific interrupt routines. HSTCON is 


464 








part of the Configuration Change interrupt service routine and 
SNOBRK is part of the Send Break interrupt service routine. 


465 
466 
467 














HISTORY: 


468 










469 








4/3/86 - BUG FIX: Did have 1 variable, BITS MSK which was set in 


470 








this routine and used to mask of bits in tHe RX data depending on 


471 








what the bits per character was set to in the CONFIG register. 


472 








Problem was that there was only 1 variable but four ports, so 
whatever the most recent BITS MSK value was, masked RX characters 


473 








474 








on all 4 ports. Changed HSTCO~N to pass back the bits/char value 
to the caller in the C register. 


475 








476 








*********************************** ********************************** 


478 








CSEG 


480 








*********************************** ****************************** 


481 








SUBROUTINE NAME: HSTCON 


482 










483 








DESCRIPTION: This subroutine is the first part of the processing 


484 








of a port specific configuration data change interrupt from the 
host. This routine basically changes the order of the bits read 
from the CONFG register to the corresponding bit patterns needed 
to program the SIO write registers. The receive mask is also 
identified and programmed based on the number of receive bits 


485 








486 








487 








488 








489 








per character requested by the change. 
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81 


B2 B3 B4 


Z80 ASSEMBLER VER 3.0MR PAGE 2 


490 










491 








UPON ENTRY: A REG. CONTAINS CONFG REG. VALUE 


492 








REG - USED BY CALLING ROUTINE - 00 NOT ACCESS 


493 








E REG - USED BY CALLING ROUTINE - DO NOT ACCESS 


494 










495 








UPON EXIT: A REG - CONTAINS RX BIT MASK VALUE 


496 








B REG - CONTAINS CONFIG. DATA - LOWER NIBBLE 


497 








H REG - CONTAINS B REG OATA + BITS/CHAR IN FORMAT 


498 








FOR SIO REGISTERS 


499 










500 








CALLED BY(FILES): &MXPTO, &MXPT1 , &MXPT2, &MXPT3 


501 








************x*s********x****x*xs*****x**********x****x****s*s**** 


S03 








DECIPHER CONFIGURATION REGISTER 


505 


0000 


CB 


4F HSTCON: BIT 1,A Testing for parity check type 


506 


0002 


CA 


07 00 C 


JP Z.HC1 If bit*0, parity<>even - no change needed 


507 


0005 


CB 


C7 


SET 0,A Parity even. Pattern must match SIO WR4 


S09 






! 


CHANGE STOP BITS PATTERN - ADO 1 TO VALUE IN BITS 2&3 


511 


0007 


IF 


HC1: RRA Rotate two bits right so can add the 1 


S12 


0008 


IF 




RRA 


513 


0009 


3C 




INC A 


514 


0000 


17 




RLA Rotate bits back in original positions 


515 


OOOB 


17 




RLA 


S17 








CHANGE BITS -PER -CHAR. PATTERN TO MATCH SIO WR3 & WR5 - SWAP BITS 4*5 


519 


OOOC 


47 




LD B.A Save current value temporarily in B reg 
ANO 10H Isolate bit 4 


520 


0000 


E6 


10 


521 


OOOF 


17 




RLA Move to bit 5 position 
LO H,A Save temporarily 


522 


0010 


67 




S23 


0011 


78 




LD A.B Retrieve other pattern 
ANO 20H Isolate bit 5 


S24 


0012 


E6 


20 


S2S 


0014 


IF 




RRA Move to the Bit 4 position 


S26 


0015 


B4 




OR H *0r' both bits together - now swapped 


527 


0016 


67 




LO H,A Save swapped bits temp. 


529 








OETERMINE NUMBER OF BITS PER CHARACTER ANO PASS VALUE BACK TO 


530 








CALLING ROUTINE IN THE A REGISTER. 


S32 


0017 


FE 


30 


CP 30H Eight bits per character? 


533 


0019 


20 


03 


JR NZ.C0N1 No 

LD A.OFFH Mask value for eight bit character 


S34 


0018 


3E 


FF 



ERR LINE ADDR Bl B2 B3 B4 
535 0010 C9 



RET 
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537 001E FE 10 

538 0020 20 03 

539 0022 3E 7F 

540 0024 C9 



C0N1: 



CP 10H 

JR NZ.C0N2 

LD A.7FH 
RET 



Seven bits per character? 

No 

Mask value for seven bit character 



542 0025 FE 20 

543 0027 C2 20 00 

544 002A 3E 3F 

545 002C C9 



C0N2: 



CP 20H 

JP NZ.C0N3 

LD A.3FH 
RET 



Six bits per character? 

No 

Mask value for six bit character 



547 0020 3E IF 

548 002F C9 



C0N3: 



LD A.1FH 
RET 



Assume here five bits per character 



550 
551 
552 
553 
SS4 
555 
SS6 
SS7 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
S69 
570 
571 
572 
573 
574 
S75 
576 
577 
578 
579 
580 



SUBROUTINE NAME: SNOBRK 

DESCRIPTION: This routine is used when the host sends the card a Send 
Break interrupt. A break interrupt can be either notifying the card 
to begin or to end a break. The card determines whether to begin 
or end break by checking the BREAK bit in the URS variable. If this 
bit (4) » then this is the Start of Break. If bit 4*1 then this 
is the end of break and this routine will turn off the Break bit 
in SIO UR5. The following is a description of the process. 

IF BREAK bit«0 THEN (*Is this the beg. of break? 

BEGIN 

SET URS BIT 4 IN URS VARIABLE (*Yes 

SEND NEW URS VALUE TO REAL SIO URS 
ENO 
ELSE («This is end of Break 

BEGIN 

RESET URS BIT 4 IN URS VARIABLE 

SEND NEU URS VALUE TO REAL SIO URS 
END 

PARAMETERS & REGISTER RESTRICTION: 
Reg. HL : URS O.URS 1 ,UR5 2, URS 3 
Reg. C : SI0"0 AC.5I0 B~C,SI0 1_AC,SI0 1_BC 
Reg. D : Use3 In Calling routine - DO N0"T ALTER 
Reg. E : Used in Calling routine - 00 NOT ALTER 

SUBROUTINE CALLED BY (FILES): 

ISRPO , ISRP1 , ISRP2 , ISRP3 



ERR LINE 


ADDR 


Bl 


B2 83 B4 


S81 








S83 


0030 


7E 




584 


0031 


CB 


67 


585 


0033 


20 


00 


586 








S87 








588 








589 


0035 


3E 


05 


590 


0037 


ED 


79 


591 


0039 


7E 




592 


003A 


CB 


E7 


593 


003C 


ED 


79 


594 


003E 


77 




595 


003F 


C3 


4C 00 


596 








597 








598 








599 


0042 


3E 


OS 


600 


0044 


ED 


79 


601 


0046 


7E 




602 


0047 


CB 


A7 


603 


0049 


ED 


79 


604 


004B 


77 




605 








606 


004C 


C9 




607 


0040 
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SNOBRK : 



LD A.fHL) 
BIT 4, A 
JR NZ.SB1 



Get contents of URS value 

Test Break bit 

If bit«l, end of break - jump 



START BREAK - TURN ON BREAK BIT IN URS AND SEND TO SIO 



LO 

OUT 

LD 

SET 

OUT 

LD 

JP 



A.5 
jtC),A 

y HLI 
to 

SB2 



Register pointer to UR5 

Get contents of URS location 

Set the Break bit 

Send amended URS copy to SIO URS 

Update stored URS copy 



ENO BREAK -TURN OFF BREAK BIT IN URS AND SEND TO SIO 



§81: 



§62: 



LD 

OUT 

LD 

RES 

OUT 

LO 

RET 
END 



A, 5 



(C).A 

5:« HL) 



Set register pointer to URS 
Get contents of stored URS copy 
URS bit 4 set to 
UR5 value to SIO 
Update stored URS copy 



ASSEMBLER ERRORS 



ERR Lire ADDR Bl B2 B3 B4 
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PAGE 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

456 

457 

458 

459 

460 

462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 



SOURCE: &MXMOD 
PROGRAMMER: LIZ POTEET 

4 CHANNEL DIO MUX (FORDYCE) - HOST ISR - MOOEM OUTPUT CHANGE 

INTERRUPT. 

xtxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxsx 

« (C) COPYRIGHT HEWLETT -PACKARD COMPANY 1983. ALL RIGHTS 

* RESERVEO. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 

« REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 

« THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 

xxxxxxxxxxxxxxxxxxxxxxxxxxx*xx*xx*xxxxxxxxxxxxxxxxxxxxx*«**»»*x 

LIST X 

NAME MXMOD 

COPY &MX4EQUS 

LIST S 

PUBLIC MOOOUT 

EXTRN WRS_0 ,WRS_1 , MOOMJJUT , EEE6 

t*sxxxxxxxxxxxsx*x«xsxssxxxsxxxxsxxxsxxxxsxxxxxsxxxxxxxxsxxxxxxxxxx 

DESCRIPTION: 

This routine is basically a subroutine called by &MXHST when 
a Modem Output Change is sent by the host. The purpose of this 
routine is to set the modem output lines to match the bits pattern 
in the MODM OUT register. The procedure is then as follows: 
The MODM_OUT register is fetched and rotated right 1 bits so that 
bit is in the Carry flag. If bit 0=1, the RS line will be set 
in the SIO (SIO #0 CH A RTS line). If bit 0-0, the RS line will be 
cleared. The same sequence is performed on bits 1 & 2. Bit 1 will 
determine whether the TR line (SIO ttO CH A DTR line) will be cleared 
or set. Bit 2 will determine whether the SR line (SIO #1 CH A RTS 
line). When all three bits are finished, the ISR will jump back to 
a label in &MXEXT. 

NOTE: This routine does not determine which bits in the MOO OUT 
register have changed or not. Consequently, even though only one 
bit may have changed, this routine will affect all of the modem 
output lines, i.e. a line may be cleared which is already clear. 

REGISTER RESTRICTIONS: 

E - Used in the Calling routine - Do Not Use Here 

CALLED BY (FILE): *MXHST 

xsxxx*xxxxxxxxxxxxxxxxxxxxxx*xxxss*sxxxxxxxxxx*xxxxxxxxxx*x*xxxxxxx 



489 



CSEG 



ERR LINE 


BOOR 


Bl 


82 


B3 64 
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491 


0000 


3ft 


00 


00 


E 


MOOOUT : 


LD 


A,(MODM_OUT) 


Get the contents of the Modm Out register 


492 


0003 


IF 












RRft 




Bit (RS) to Carry 


493 


0004 


30 


09 










JR 


NC,m 


If RS bit<>l, jump 


495 












;SET 


RS 


OUTPUT LINE 




497 


0006 


47 












LD 


B.ft 


Save value in B reg. temporarily 


498 


0007 


3ft 


00 


00 


E 






LO 


A, {URS 0) 

it 1 


Retrieve contents of UR5 copy 


499 


OOOfl 


CB 


CF 










SET 


Set RTS bit in URS 


SOO 


OOOC 


C3 


IS 


00 


C 






JP 




502 


000 F 


47 








Ml: 




LD 


B,A 


Save value temporarily in B 


503 


0010 


3fl 


00 


00 


E 






LD 


ft , fURS.O ) 


Retrieve contents of URS copy 


504 


0013 


CB 


8F 










RES 


Reset RTS bit in URS 


506 


0015 


OE 


71 






M2: 




LD 


C.SIO ftC 


Get address of SIO channel 


507 


0017 


16 


OS 










LO 


(C),D 




S08 


0019 


EO 


51 










OUT 


Register pointer to URS 


509 


001B 


EO 


79 










OUT 


C ii fl 


Send new URS value to SIO 


S10 


0010 


32 


00 


00 


E 






LO 


fURS 0),A 


Save copy of URS 


511 


0020 


78 












LO 


A, 8 


Get rotated copy of MODM reg for next chk 


513 












; CHECK 


TR BIT 






SIS 


0021 


IF 












RRft 




Rotate Bit 1 (TR) into Carry 


S16 


0022 


30 


09 










JR 


NC.M3 


If Tr bit <> 1, jump 


S18 












;SET 


TR 


LINE 






S20 


0024 


47 












LD 


B,fl 


Save value in B reg temporarily 


S21 


0025 


3ft 


00 


00 


E 






LO 


A.fURS.O) 


Get saved copy of URS 


522 


0028 


CB 


FF 










SET 


Set OTR bit in URS copy 


S23 


0020 


C3 


33 


00 


C 






JP 




S25 


0020 


47 








M3: 




LD 


B,A 


Save value in B reg temporarily 


526 


002E 


3ft 


00 


00 


E 






LO 


A.JURS.O) 


Get saved copy of URS 


S27 


0031 


CB 


BF 










RES 


Reset DTR bit in URS copy 


S29 


0033 


OE 


71 






m: 




LD 


C.SIO ftC 


Get address of SIO register 


S30 


003S 


16 


05 










LO 


°x S 
lt),0 




S31 


0037 


ED 


51 










OUT 


Register pointer to URS 


532 


0039 


ED 


79 










OUT 


c il fl 


Send new URS value to SIO 


S33 


003B 


32 


00 


00 


E 






LO 


(URS_0),A 


Store updated copy of URS 


ERR LINE 


fiDOR 


Bl 


B2 


B3 B4 
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534 


003E 


78 












LD 


A,B 




S36 












; CHECK 


5R BIT 






538 


003F 


IF 












RRft 




Rotate Bit 3 (SR) into Carry 


S39 


0040 


30 


08 










JR 


NC.MS 


If not set, go to exit 


S41 












;SET 


SR 


LINE 






543 


0042 


3ft 


00 


00 


E 






LO 


A.fldRS 1} 


Get saved copy of URS 


544 


0045 


CB 


CF 










SET 


Set RTS bit in URS 


545 


0047 


C3 


4F 


00 


C 






JP 




547 


004ft 


3ft 


00 


00 


E 


H5: 




LD 


A,fUR5_i) 


Get saved copy of URS 


S48 


0040 


CB 


8F 










RES 


Reset RTS bit in URS 


S50 


004 F 


OE 


73 






M6: 




LO 


C.SIO BC 




5S1, 


0051 


16 


OS 










LO 


D.5 "- 
(C),D 




552 


0053 


ED 


51 










OUT 


Register pointer to URS 


553 


0OS5 


ED 


79 










OUT 


C L ft 


Send URS value to SIO 


554 


0057 


32 


00 


00 


E 






LD 


(WRS_1),A 


Save updated value in URS 


SS6 


005ft 


C3 


00 


00 


E 






JP 


EEE6 


Return to calling routine 


SS8 


0050 














END 






ASSEMBLER ERRORS 
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PAGE 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

456 

457 

4S8 

459 

460 

462 
463 

464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 



SOURCE: &EXTMR 
PROGRAMMER: LIZ POTEET 

4 CHANNEL DIO MUX (FORDYCE) - HOST ISR - CTC TIMER ON/OFF 

INTERRUPT 

i«**********»**«***x«****«»**»»**x***»**«*****»*»***»*»******«» 

* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1983. ALL RIGHTS 

* RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 

* REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 

* THE PRIOR WRITTEN CONSENT OF HEWLETT -PACKARD COMPANY. 
*sxss*sx*s***«s**xtx*xx**xx*s*xssxx*****«**s***sxsxss»*xs««*«*s 

LIST X 
NAME EXTMR 
COPY &MX4EQUS 
LIST S 

PUBLIC TMROFF 

EXTRN TMRFLG.EEE7 

»*xa***********«*s*********ss»»***s*********»»**xa»»»*»******»»«*x» 

DESCRIPTION: 

This routine is part of the Host Interrupt, Timer On/Off. and 
is 'called' by a routine in &MXEXT. The purpose of the following 
code is to either turn on or off the 16 Millisec Timer. A flag is 
checked to determine whether the timer is to be turned off or on. 
If TMRFLG=1, the timer is currently on and the interrupt is to 
turn it off. Conversely, if TMRFLG«0, the timer is currently off 
and the interrupt is signalling it to be turned back on. 

REGISTER RESTRICTION: 

E - Used in the calling routine - Do Not Use 

CALLED BY (FILE): &MXHST 

**xx***»*»***x»x«**x***»***«*»*««»***»»**»*x****sx**»x*x*******x»**«*» 



479 

481 0000 

482 0002 

483 0005 

484 0006 

486 



OE E2 
3A 00 00 
IF 
38 10 



TMROFF: 



CSEG 

LD 
LO 
RRA 
JR 



C.CTC : 1 C2 
A, (TMffFrG) 



C.T01 
; TIMER OFF - TURN BACK ON 



Get address of CTC channel 
Get contents of Timer flag 
Rotate bit into Carry flag 
If timer now on, jump 



ERR LINE ADDR Bl 82 B3 B4 
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488 
489 
490 
491 
492 
493 
494 

496 

498 
499 
500 
501 

503 

505 



0008 
000ft 
OOOC 
OOOE 
0010 
0012 
0015 



0018 
001ft 
001C 
001D 

0020 

0023 



3E A7 
ED 79 
3E E7 
ED 79 
3E 01 
32 00 00 
C3 20 00 



3E 03 

ED 79 

AF 

32 00 00 

C3 00 00 



LD 

OUT 

LD 

OUT 

LD 

LD 

JP 

; TIMER ON NOW 

T01: LD 

OUT 
XOR 
LD 

JP 

END 



T02: 



A.CTOJRO 



fa* 



A . TrIRPRE 
A 1 

ITmrflg) ,fl 

T02 

- TURN OFF 

fl.3 

(C),A 

fl 

(TrIRFLG) ,fl 

EEE7 



Get CTC channel control word 

Send to CTC 

Get time constant register value 

Send to CTC 

Setting TrIRFLG to 1 

Go to exit 



Reset channel 
Send to CTC 

Set timer flag=0 to reflect timer off 

Return to Caller 



ASSEMBLER ERRORS 



ok] 
I.62> 



